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A PROTOTYPE PROGRAM FOR TARGET INFORMATION 



Introducti on 

More and. more of toe applications of modern ampiiioious 
warfare nave turned to computerized solutions, from 
real-time combat systems to the data bases tnat control tne 
men, materiel and resources neeaea to ware war. Tne products 
of tne tecnnol ogica i explosion nave enabled tne Navy-Marine 
Corps ampnioious team to do more, to do it faster and to no 
it witn a degree of efficiency and accuracy previously 
unobtainable. 

Tms evolution of modern teen no logy nas not yet reacned 
tne Marine Corps tactical command posts establisnea on tne 
oeacnneaa. Tne target information section of tne landing 
force fire support coordination center (FSCC) plays a 
signficant role in tne conduct of effective coordination of 
tactical air, artillery and naval gunfire support on targets 
of nign priority. Yet tne target information officer and nis 
staff acconplisn tneir important tass by tne use of index 
card files, cross-reference files, nana written lists of 
targets and colored grease pencils on acetat e-c o vered 
tactical maps. Tnis metnod is time consuming, slow in 
response to inquires about target information, tedious and 



l 



difficult to maintain in 



a 



cur rent status ana aoes not 



provide information in a sufficiently timely ana accurate 
manner. It is 4<? year ola tecnnology in tne age of 
computers . 

Tne requirement to automate many of tne functions of tne 
tactical command post nas teen identified and tne command 
post of tne future is being planned for ana developed now. 
'Jntii it arrives, tnere is a need to provide an interim 
capability to tne landing force. An automated solution to 
tne target information function will simplify tne tasic cf 
tne target information section consiaeraoiy, will provide 
rapid, accurate and timely target information to tne memoers 
of tne FSCC, ana can be made operational now, five full 
years cefore tne planned introduction of tne computerized 
command post . 

Tms report contains a prototype program for target 
information wnico will improve tne operational capaDiiity cf 
tne landing force FSCC and snow tnat tne implementation of a 
suitable and effective target information system is 
possible. Tnis implementation ana lesion of a worsting 
prototype win increase operational effectiveness 
immediately as well as provide a testbed and learning model 
for tne future automated command post. Tne prototype is 
designed to perform ail tne duties and functions or tne 
target information section as currently stated in doctrinal 
publications. Tne interim system will aopefuily contribute 



t 



to tne development o:' tne future system ana identify areas 
of concern and improvement tefore tr.e future Marine Corps 
system oecomes ooerationai. 



Background 

An important aspect of ampnioious fire support 
coordination (tne planning ana execution of tactical air, 
artillery and naval gunfire support so tnat targets are 
adequately covered cy a suitacle weapon or group of weapons) 
is tne function of target information. One cf tne major 
duties of tne fire support coordinator, tnat memcer of tne 
landing force staff responsioie for coordination of fire 
support, is to ensure tnat tne fire support coordination 
center receives and disseminates a'/aiiaole target 

information to all staff sections and commands reouiring tne 
information. Be also must worse closely witn tne target 
information officer and tr.e commander ana nis staff in tne 
selection of targets and assignment of classification and 
attack priorities. 

Target information is tne direct application of comcat 
intelligence to fire support ana is a Key to tne proper 
employment or supporting arms in conjunction witn eacfc of 
tne plans of tne ampni pious operation. Effective fire 
support coordination and tne planning of ampr.ibious 
operations generate a continuing requirement for target 
acquisition, dissemination, evaluation and recommendation 
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To accomplisn tnis important tasi, toe commanaer o:' tr.e 
anpnibious taste force assigns a target intelligence officer 
to trie supporting arms coordination center (SACC). Tnis 
officer operates tne target information center (TIC) and 
worfcs closely witn tne air intelligence officer, tne landing 
force targeting representatives and tne supporting arms 
coordinator. Tne commander of tne landing force nas a target 
information officer (TIO) wno operates tne target 
information section (TIS) as an integral part of tne landing 
force fire support coordination center and a target 
intelligence officer wno functions in tne landing force 
intelligence center. 

Tne 'Javy staff uses a computerized target information 
system wnicn is part of tne snipooard Ampnioicus Support 
Information System (ASIS) and maintains tne list of targets 
as part of a data Case. Target information operations in tne 
SACC are tnus computerized and, vnile tne ASIS target system 
is not tne most modern of data base systems, it is 
efficient, effective and fast. Wnen tne functional 
responsibility for maintaining targets is passed asnore to 
tne landing force TIO, tne computer system is replaced oy an 
index card filing system, wnicn , wnile effective, is 
neitner fast nor efficient by comparison. Additionally, tne 
index card system lends itself to inaccuracies and omissions 
in target data, particularly wnen tne informa tion must be 
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maintained in a timely manner. Tne tactical reauirement for 
accurate and timely target information is no less critical 
or important wnen tne landing force is on tne neacn, yet tne 
system to accomplisn tr.is tas£ is antiquated and cum oe rsome . 

Tne staff of tne TiS manually transfers tne target 
information data contained in tne ASIS data case to b by B 
incn target cards. After duplicating tne entire target file, 
tne TIS must construct a cross reference file to list tne 
target by srid location and a cross-index file to Keep tracK 
of certain tyoes of targets. In addition to tne target 
cards, tne TIS also mates up lists of particular categories 
of targets wnicn may be of interest or value to members of 
tne FSCC . 

Tne TIS obtains intelligence information from landing 
force and supportine arms agencies, converts tnis to tarset 
information and enters tne information into tne target card 
files. The information is made available to t.ne supportin? 
arms representatives in tne FSCC and, based on tne TIO's 
recommendations, a decision is made when and now to attacK a 
particular tarcet . Results of attacks on targets, front line 
reports and intelligence information are used to refine tne 
tareet list and delete or leprioritize tnose targets tnat 
present a diminished threat to tne landing force. 

Access to specific information from tne target list (for 
example, more than one category of tne cross-index files) 
requires physically searcning tnrougn each list and 



5 



constructing sub-lists to determine the appropriate 
information. The constant availability of timely and 
accurate target information is required for tne effective 
employment of supporting arms and planning of fire support. 
Tne TIS plays a ffey role in providing this information and 
the constant process of adding to the target list, selecting 
targets for attach and deleting targets once neutralized is 
performed by the TIS staff using tne target card file. 

One of tne most complex aspects of modern amphibious 
warfare is tne control and coordination of supporting arms 
particularly in tne transition of responsibility from tne 
Navy in amphibious snips to the Marine Corps combat units 
ashore. The grease pencils, map boards and field radios tnat 
have served Marines so well since tne days of Guadalcanal 
will, in tne future, be eclipsed by tne automated system 
called the Marine Integrated Fire and Air Support System 
(MIFASS). 

MIFASS is part of the Marine Corps integrated command 
and control system called ‘^TACCS (Marine Tactical Command 
and Control Systems), a collection of eignt major systems 
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functions of the fire support coordination center, (FSCC) 
the direct air support center (DASC) and, to a degree, the 
artillery fire direction center (FCC) at one central 
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location cailei the Fire and Air Support Center (FASCK 

It is a distributed processing system in wnicn 
microcomputers control interactive display devices, manage 
data Dases, perform computational tasis and drive printers 
to provide hard-copy records of messages and operator 
decisions. It is currently in full scale engineering 
development with an initial operational ~apability planned 
for the 1955-1987 time frame. MIFaSS addresses tne 
requirement for target information by providing tne TIG with 
a digital display device wnicn will nave botn a graphical 
representation of the target on a battle map and a video 
screen for aipnanumeric display of target information. 

Statement of the Problem 

An automated solution to tne target information function 
will nor, be realized until tne introduction of tne MI PASS 
computers into tne Fleet Marine Forces. Until seen time as 
the system is delivered, tne target information function cf 
tne FSCC is tied to tne current doctrine and tne target card 
filing system. 

In this report, an interim solution to tne problem of 
automating tne target information function of tne FSCC is 
oresented. It computerizes tnose basic functions of tne T1S 
in a simple, inexpensive and effective manner. It simplifies 
tne tas^s of the TIS, provides a mecnanism for rapid and 
accurate retrieval of target information and could improve 
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the operational capability of me FSCC. 

Nature of tne Solution 

Tfie design tasK is brcsen down into tnree distinct 
parts, eacn of wmcn is influenced by tne dual constraints 
cf a microcomputer environment and a friendly user 
interface. Tne design is specifically addressed in tne 
tnesis vnicn is supported by tnis program listing report. 

Tne design of tne physical and logical data case is 
influenced by tne desire to nave a simple yet sufficiently 
informative data model, a rapid, real-time response and a 
restricted, single application system. Tne system design is 
influenced by the microcomputer environment wr.icr restricts 
tne user bota in main memory space and tne speed of access 
to secondary storage and tne requirement for an effective 
interactive system for a non-sopni sticated user. 

The design of tne software to implement octn tne data 
base and tne system is o verwnelmi ngiy influenced by tne 
requirement tnat tne system support real-time, interactive 
processing of a casual, non-programmer. Termed " v arine 
proof’ in the vernacular, it requires a sophisticated 
interface employing user friendly dialogue techniques to 
ensure tnat tie operation is simple and efficient. For tnis 
reason, and to facilitate system portacility, a 
microcomputer comparable nign i°vel programming language 
(UCSE rascal) is used. 
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APPENDIX — A 



Trie source cole listing for toe MIST I system is 
organized Sy functional module. Tne list is not a compiled 
listing tut is separate ty function and ty module. In an 
effort to decrease user confusion, tne following outline 
snows tne lceical oreanization of tne program. Tne segment 
procedures are marned ty a -. 



INTERFACE 



GLOBALS 
3UERY* 
TARGET 1 " . 

I N I T 9 
INFORM 1 " 

UTILITY- 



£ TA- 

TGTrROCS 



ACDTARGET 



CHANGE 



TARGET 



Tne Interface module contains include statements wnicn 
instruct tne compiler to compile tne program in tne proper 
logical oraer. Tne segment procedure? are tne first 
procedures to be compiled. Tnis necessitates tne aeciarirg 
of many of the system routines in tne- oes-innin^ of tne 
listing. Tne UCS D Pascal include statement allows tne user 
to identify tne volume name as well as tne file name. 
"Store" is tne name of tne volume wnicn contains tne source 
cole, tnus, it appears m tne include commands. 
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* v A I N PROGRAM INT^RjACS “) 

•'oeram interface (input , output ) ; 



(^Istorergiobais.text*) 



rocelure 

rocedure 

rocelure 

rocedure 

rocedure 

rocedure 

rocedure 

rocedure 



clear; forward; 
prompt; forward; 
select; forward; 
•nenuerrorJ forward; 
errori; forward; 
lines(y : integer); 
loadmSi?; forward; 
getfiie( filename : 



procedure delay; 
procedure spacer 
procedure return 
procedure rial:; 
procedure error? 
forward; 

string); forward ; 



(*$Istore:query. text*) 
(*$Istore: bda . text 9 ) 

( v ^Isto re: tgtprocs.tex t^) 
(*$ I store: add target .text*) 
(*$Istore:cna age .text*) 
(*$Istore:target .text"-) 
(*$Istore:init .text*") 
(*$Istore -.inform, text * ) 
(*$Istore: utility. text*) 



procedure clear; 
begin 

write (cnr( 31 ) } ; 
end ; 



pro cedure prompt ; 
begin 

wri te ( prompter ) ; 
end ; 



procedure spacebar; 
begin 

wri te 1 n ( s pac e Dr ) ; 
prompt ; 
repea t 
read(cn); 
until cn = ' 
end ; 



forward; 
ari forward; 
bar; forward; 
forward; 

; forward; 
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procedure select; 
begin 

writem(seiectop); 
prompt ; 
end ; 



procedure lines; 

var yy : integer; 
begin 

for yy := 1 to y do 
writeiii? 
end ; 



procedure returnbar; 



oeei n 

writein(returner) ; 

prompt ; 

repeat 

read (cn) ; 

until eoin(input); 
e nd ; 



procedure loadmsg; 

begi n 

1 i n e s ( 3 ) J 

wri te ( cnr( 14) ) 5 

wri te In ( ' PROS RAM SUING RUAD IN PL3ASU VAIT'! 

wri te ( cnr( 24 ) ) ; 
wri te in ( car ( 2» ) ) ; 
end ; 



procedure delay; 
var 

i, y, z : integer; 

beei n 
z : = 0 ; 
x : = 0 ; 
repeat 

for y := 1 to 100 do 
2 := z + l ; 
x := x + 1 ; 
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until x = 12) ; 
e net 5 



procedure nail ; 
v a r 

z : integer; 

oegi n 

1 i ne s ( 2 ) ; 

write(' System nal tins. . . ' / ; 

for z : = 1 to lk) do 
oe^i n 
delay ; 
wri te(lot)! 
end ; 
e ni ; 



procedure errorl ; 



oegi n 

lines (l) ; 
wri te ln( ' 
wri teln( ' 
w ri tel n( 

1 i nes ( 1 ) » 
prompt ; 
end ; 



Tne croper format is a numcer from tn 
options listed a sove . Please press tn 
RETURN Key and reenter your c n o i c e . ' ; 



* \ 



procedure menuerror; 

be?i n 

1 i ne s ( 1 ) » 

if eoln (input) taen 
be ei n 
errorl ; 
readm; 
end 

else errorl; 
readln; 
end; 



procedure error2; 



Deein 

1 1 n e s ( 3 ) » 



1 



c; 

kJ 



(V ri) 



writem(' Tne target identifier does not currently') 

writeln(' exist in tne target file. Piease reenter') 

wri tein ( ' tne t arget 

1 i n e s ( 1 ) ; 

numocut := numoout + i; 
if num oo ut = 3 tnen 
begin 

1 ines ( l ) ; 

wri teln( ' To leave 

wri tein ( followed 

1 i n e s ( 1 ) ; 
n urn bout := 45 ; 
end; 
ena ; 



procedure getfile; 

(* filename : striae declared forward * ) 

var buffer : string; 

usermessage : text; 



identifier. ' ) ; 



tnis procedure, type a C'); 
by pressing tne R2TUH.N Key.'); 



be?i n 

reset( usermessage, filename); 
repea t 
cegi n 

re all n( usermessage , buffer) ; 
writeln( buffer); 
ena; 

until eof (usermessage ) ; 
close (usermessage , iock) ; 
ena ; 



( 



procedure buiiiempty; 
var j : integer; 



beein 



witn emptyTrec do 



begi n 
tnum 
ait : 
1 oc : 
acc : 
class 
pri : 
ttype 



' 001 * 200 ' 

/ / , 

* / # 
f 

f 

) 

_ ' ' • 

“ 1 
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5 a : = * 

stat := ' '; 
a e s c : = 
reti : = desc ; 
naprefer : = 
sour := ma prefer; 
pp.otonum : = '; 

DTGact := ' 
pnotocora := ioc; 
for i := 1 to r.umbervar io 
flag[ij := oft'; 
fori : = 1 to i do 
beein 

BDA [i J .DTSsurv := DTGact; 

3 DA. [i J .f i reuni t : = ' ; 

BDA ( i J .nt rnds : = 

£DA [i j .damrep := ' ' * 

BDA [i J .damass ;= ' ' ; 

BDA l i j .BDAtext := desc; 
end; 
end ; 

witn etnptyCrec ao 
oesi n 

tnu-n := ' 
a 1 1 ; = f 

ioc ;= ' 
class := ' 
pri := ' '; 
a c c ; = ' ' *' 
ttype := ' '; 
s a • — * 

desc := 
ena; 
end; 



procedure buiiamap? 

var j : inteeer; 

beein 
i := ; 

j := 

wnile not eof(target) do 
oegi n 

sees( tareet , i ) ; 
get(target); 

tgt:nap[ij := targe t” . tg tree . t nuro 
i : = i + 1 ; 
j := j + U 
if j = 1 vd tnen 
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oegi n 

w ri te ( do t ) ; 
J := & ; 
ena; 
end; 
end * 



procedure openfiles; 
var io : integer; 
oegin 

filecnecs := false; 
clear »' 

1 ines (o ) ; 
loadms^; 
lines 4); 

write(' Opening file...'); 
write(dot) ; 

( 

reset (target, 'fr5 : tar get file. data'); 

(*si+*) 

io := ioresult; 
if 10 in [4,5 fS »J tnen 
c e g i n 
clear; 

wri tern ( cnr (?)) ; 

lines ( b) ; 

wri teln ( cnr (14 ) ) ; 

wntein( ’*** NO D I Si IN CEIV3 i ¥¥¥ '); 

wri te ( cn r( 24 ) ) ; 
writeln( cnr(2y) ) ; 
lines (5) ; 

writeln(' Insert 1’AROiT diskette m drive 3 and restart system 
nal t»* 

getout := true; 
exi t( opecf i les ) ; 
end,' 

if io <> Z tnen 
oegin 

filecnecK := true; 
initialize; 
end ; 

wri te (do t ) ; 

(*$ 1 -*) 

reset ( CT , '# 5 : queryf i le . da ta ' ) ; 

if not filecnecx tnen 
oegin 

io := ioresult; 
if io <> Z tnen 
Degi n 



lb 



fiiecnsci := irue; 
ini tialize ; 
end? 
end ; 

wri te ( do t ) * 

Duildmap; 
wri te ( do t ) ; 
filecnecs := false; 
end ; 



procedure password? 
var 

n,z : integer; 
user : string; 
valid : boolean; 



begin {1} 

valid := false; 
clear; 
n := I? 
li nes ( 5 ) ; 

wnile (not valid) and (n <- b) do 
begin {2} 

wri te In ( ' PLEASE ENTER PASSWORD AND PRESS RETURN ESI'); 
prompt ; 

re ad In ( Keyboard, user); 
z : = 1 ; 

wnile (not valid) and (z <= 5) do 
if userid [zj = user tnen 
begin{3} 

passwrd : = true; 
valid := true 
end{3> 

else z := z + 1 ; 
if not valid tnen 
begi n{4} 

n : = n + 1 ; 
lines (3 ) ; 

wri tein ( ' « PASSWORD INCORRECT ** ' ) 

writeln(cnr(?)); 

1 1 ne s ( 1 ) >' 
if n > 5 tnen 
be?in{5> 

writeln(' Please refer to tne password instructions'); 

writeln(' in tne target information system nandooox'); 

vriteln(' for tne proper input.'); 

lines ( a) ; 
nalt ; 
lines (4) ; 

writeln(' ** To restart system type R **'); 

ent ( password) ; 
end ; 1 b > 
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2 nd ; {4} 
end; {2} 
end > { 1 } 

1 1 

! 



procedure welcomel; forward? 
procedure welcome; 

begin 

clear? 

w ri teln ( do ts ) ; 

writeln( ' WELCOME TO TEE TARGET INFORMATION SYSTEM'); 

writeln(do ts ) ; 

lines(l); 

writeln( 'Tnis program Is a prototype target information system for'); 
writeln('tte Fire Support Coordination Center. It is designed to be'); 
writeln( 'used by the personnel of tne target information section of')i 
writeln('tne landing force FSCC in accordance witn tne principles'); 
writeln( 'outlined in FMFM 7-1 (Fire Support Coordination).'); 
lines (2) ; 

wri teln ( 'WARNING:') ; 
write ( cnr(l4 ) ) ; 

writeln( ' *** THIS FILE CONTAINS CONFIDENTIAL MATERIAL ***'); 

writ e ( cnr( 24) ) ; 
writeln(cnr(29) ) ; 
welcomel » 



procedure welcomel? 
begin 

writeln(' Tne diskette file contains targets wnicn are normally classifie 
writeln ( 'conf idential . The diskettte and all tne backup copies snould be 
wri teln ( 'nandled as normal confidential documents and properly safeguard* 
writeln ( 'Targets of a nigner classification snould not be entered on tni: 
writeln ( 'file . Current emergency destruction procedures for confidential' 
writ eln ( 'ma teri a l apply. Re-initializing tne system removes all classifis 
writeln( 'information.'); 
lines(l) ; 
space bar; 
end ; 



procedure welcome^; 

begin 
clear; 
lines( 5) ; 
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*iteln(' If at any time you become confused, in douct acout ^at'); 
•itelndto do next or wnat values to enter wnen you receive a prompt'); 
•iteln ( 'from tne system ( ==> ), you can receive nelp or information'); 
•iteln ('by typing a 
Lnesd); 

•itein( ' If you need more information on now to operate tne system,'); 
•iteln ( 'doctrinal guidelines for target information, security retirements 
•iteln('or the types cf formats used for target information, select option 
‘iteln ( 'number 1 from tne main command menu wnicn follows.'); 
lines (2) ; 
space car; 
end ; 



procedure mminfo? 

begi n 
clear; 

writein( stars )> 

1 i ne s ( 1 ) ; 

?e tf i le ( 'mminf ol . tex t ' ) ; 

linesd ) ; 

space Da r; 

clear; 

li nes (2 ) J 

ge tf i le ( 'mminfo2.text'); 

linesd ); 

space car ; 

clear; 

lines(B) ; 

ge tf i le ( 'mminf o3 . text ' ) »’ 
lines (5) ; 
space Da r ; 
end; 



pr ocedu re 


ma i 


nmenu ; 


Oeein 

clear? 

wri teln(stars ) ; 
wri teln ( ' Target 


Information System Main Command Menu';? 


vrlteln(dots) ; 
linesd) ; 
writelnd The 


opt! ons are : ' ) > 


linesd); 

wri teln( ' 


1 . 


System Information'); 


w r i t e 1 n ( ' 


2. 


WorK on Target File'); 


writeln( ' 


3. 


Create a Special Target List'); 


writeln( ' 


1 . 


Perform Utility Functions'); 


w r i t e 1 n ( ' 


5. 


Initialize a New System'); 


wri tela ( ' 


6. 


Information about tnis Menu'); 


wri tel n ( ' 


7. 


Halt Operation'); 



lines (2); 
end ; 



begin (* interface 3 - 5 ) 



?etout := false! 
restart := false; 
-nenuloop : = false; 
numbout := 
passwrd := 



Vi 

false; 

= 'COULTER'; 



= 's'; 

= 'e'; 

^ 'MARINE 



userid [l] 
userid l 2] 
userid [3J 
userid [4j 
userid [bj 
■nenucnan 
password; 

if not passwri tnen exit ( interface ) 
bull denpt y ; 
openf i les ; 

if eetout tnen exi t ( interface) ; 



= marine ; 

_ r'-,' ^ r, ' '7 ' 

- L 1 f 2 f 3 , 



, '5 



welcome; 
cl ear; 
wel ~orre2; 



repeat 
ma i nmenu ; 
select; 
read ( cn ) ; 

if cn in nenucnar tnen 



be? in 

if eoln (input) tnen readln; 
case cn of 

' 1 ' : b e <? i n 

1 o a d m s s > 
inform; 
end ; 

'2' : begin 

loadmsg; 
tar?etrnod ; 
end ; 

'3' : begin 

1 o a d m s s ; 
query ; 
end; 

'■±' : be?in 

loaimsg; 

utility; 

end; 

'b' : begin 

loadmsg; 



'7', 'V 'J ; 
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initialize; 
if restart teen 



begin 
«rri te ( ' 
buiii^a p; 
lines \2) ; 
«/ri teln ( ' 
lines ( 1 ) ; 
spe ce oa r » 
ena ; 
e ni ; 

'o','?' : -in info ; 

'7 ' : oegin 

eetout :=■ true? 
nai t » 
clear; 
end. ; 

end 

end 

else T,enu error; 
until getout = true; 



+-++ END OF INTERFACE 



Proc 



+ + + -»- + -*- + 



( 



GLOBALS . TEXT 



*■* ) 



I 



const 



lot = 



stars 

lots 



5J5 5J? i[* 3,5 3J( 5JC JJ* JJ» 3J* 3^5 7 



? 5^5 T t i ?JS 3J5 3|> 3] 



5 3?^; 



» 3J5 »(5 *|» 3J5 5(5 v 5 



5 5",5 3f5 JJJ 5,5 5,5 J(5 5J5 ?J» 5,5 J,X 5,5 1JJ 5 



space cr = ' PLEASE PRESS SPACEBAR TO CONTINUE'; 

returner = ' PLEASE PRESS RETURN TO CONTINUE'; 

prompter = ' ==>'; 

seiectop = ' PLEASE ENTER OPTION NUMBER '; 
re turn = ' Return to Previous ^enu ' ; 
nu~oervar = 19; 
nuncertgt = 3 00 > 



type 

nvalue = set of char; 
state = ( o n , o f f ) » 

oatt.leiam = packed recora 
DTGsurv : stringl7] ; 
fireunit : string[5j; 
n trnis : string [10J ; 
damrep : cfiar; 
d dTid s s t cndr! 

BDAtext : string[40] 
end ; 

tarrec = paciea record 

flag : Daciei array [1 . . nurbervar J of state; 

tnum : string [6] ; 

ioc : string [cj ; 

al t : string [4j ; 

lesc : string [40j ; 

class : cnar; 

pri : cnar; 

s tat : cnar; 

ttype : cnar; 

sa : cnar; 

rep : s t ring [43 j ; 

naprefer : string[20j; 

sour : string [20 j ; 

pnotonum : string[l5J; 

CTGact : string[7j; 
paotocori : string[3j; 
acc : cnar; 

BDA : packed array [1..3J of battieaarr 
end; 

auerytet = packed record 
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flag 


: state; 


ttype 


: cnar; 


class 


: cnar; 


s a : 


cnar ; 


pri : 


cnar ; 


a c c : 


cnar; 


stat 


: cnar; 


tnum 


: string L^J ; 


1 — 

O 

O 


s t ri ne Le J ; 


alt : 


s tri ng [4-j ; 


desc 


: s t r ing [ dl j 



e ni ; 

targetnap = packed array [d . . nun c£ rtg tj of string[6j; 
gridiocnap = packed array [Z . .number tgt j cl' stricg[=j; 
vtarset = packed array L«^’ • • nurr De r iz t J of queryt^t; 



va r 

eridnap : gridlocmap; 
i g t Ti a p : target. nap; 

target : file cf record tgtrec : tarrec end; 

QT : file of record querrec : auerytst end; 
nocnar, cn : cnar; 

restart, menuloop, passwri, getout : oooiean; 
userid : pa cited array Li •• 5J of string; 

Tienucnar, nenucar : o value ; 
nostring, Duffer, str : string; 

recnum, nunbout, nun ociieci , fl?, ran^e, flag : integer; 

f i iecnectt , current, nanaatoryi tern , neiprne, fmisnea : oooiean 

endEBA, ok, trap, done, quit : oooiean; 

x, i, ii, EDAcounter, n : integer; 

emptyTrec, currentgt : tarrec; 

enptyCrec, currentQT : queryti?t; 

database : Otarget; 



SYSTEM SL3BALS 



*“ ) 



do 



(* SOSRY .TEXT *) 



segment procedure ^uery*, 

var cbarmenu : revalue; 

tellused, first : boolean; 

amount, left, searcner, court, recccunt : integer; 
index : cnar; 

Scneci, Pcnecs, Acnecs, statcnecs : st rin^ [16J * 
Tcnecic, Ccnecs, exptystri r.g : stringUoj; 
cat : array 11. .cj of string? 



procedure getiatabase; 

var j : intseer; 

begin 

clear; 

1 ir.es ( 4 ) J 

writein(' Data base being loaded into memory Please <*ait') 

lines (5); 

wri te ( ' Loadinsr. . . ' ) » 

i := 0J 

j := 0 ; 

close(vT,locs) ; 

reset(CT,'*5:uuery file. data'); 

*nile not eof(QT) do 
be?in 

sees ( ST , i ) > 
get(ST); 

latabaselij := ST".querrec; 
l := i + 1 ; 

J := J + i; 
if j = 10 tnen 
begi n 

write(dot) ; 

.1 := e; 

end; 
end ; 

1 i n e s ( 5 ) ; 

*fri te ( ' LOADING COMPLETE'); 

reccount := i» 
for i := 1 to 4 do 
delav ; 

end ; 
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'ocelure to research.; forward; 



•ocedure searcniatacase ; 



;?i n 

for i : = 0 10 reccou n t - 1 do 
begin 

case sea rcher of 

1 : begin 

if first tnen 
b®?i a 

if dat a base [i J . 1 1 ype = index tnen database l ij . fl a? := on 
end 

else if ( data base | ij . f la? - or.) and (dataoasel ij . ttype <> index) 
tnen da ta base [i J . f lag := off; 
end ; 

2 : be?i.n 

if first tnen 
begin 

if database l ij .class = index tnen la ta bas e l ij . f 1 ag on 
end 

else if ( lata base [ij . f lag = on) and 'datacaselij . class O imex) 
tnen da ta base [ ij . f la? := off; 
end ; 

3 : begin 

if first tnen 
begi n 

if database [ij .sa = inaex tnen aa ta case [ i j . f iag : - on 
end 

else if ( lata base [ij . flag - on) and ( da ta oa se [i J . sa <> index) 
then database fiJ . flag := off; 
end; 

4 : begin 

if first tnen 
be?i n 

if database [ij .pri = inaex tnen database [ij . f la? := on 
end 

else if ( data base l ij . f la? = on) and (da tacase I ij . pri <> index) 
tnen database [ij .flag := off; 
end ; 

5 : be?in 

if first tnen 
begi n 

if database [ i J .acc = index tnen database I ij .flag := or. 
end 

else if (data base Li i • flag = on) and (datacase[ij . acc O index) 
tnen database lij .f la? := off; 
end; 

6, 7 : moresearcn; 
end ; 



end; 

amount := Z) 
for i := 0 to 



reccount - 
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l do 



if database[ij . f lag = on men amount := amount + l; 
lines {'2)i 

writeln(' Number of targets in special list is '.amount); 

lines (2 ); 
spacebar; 
index 

first := false; 
end ; 



procedure Toresearcn; 

egi n 

case searcher of 
6 : begin {active} 
if first tnen 
begin 

if (database [ij .stat = 'l') or ( data base [ij . s ta t = '2') or 
( database [ij .stat = '3') or (data base UJ • stat = '4') tnen 
data baselij.f las : - on 
end 

else if (database [ij . flag = on) and ( ( da ta base [i J . s t at = '5') 
( database [ij .stat = 'fc>')) then da ta base L i J . flag- := off; 
end; 

? : begin (inactive) 
if first then 
begin 

if ( da t a base [i J . s t a t = '5') or (database [ij .stat = 't>') tne 
data baselij.f las : = on 
end 

else if (database [ij .flag = on) and ( ( da ta case [i j . s tat <> '5' 
(database I ij .s tat <> '6')) tnen database lij .flag := off; 

end; 
end ; 
end ; 



procedure DBtype; 

begin 
repeat 
clear; 
lines ( H ) ; 

getfile ( 'type menu. text ') ; 

wri teln ( ' R. '.return); 

lines(l ) ; 

select; 

read ( cn ) ; 

if cn in cnarmenu tnen 
be?i n 

if eoin(input) men readln; 

if cn in [ '0 ' , 'q. ' , 'R ' , 'r'J tnen exit(DBtype) 



? ' t n e a 



else if cn = 
be?i n 
clear; 

ge tf i le ( 'tgt type. text ' ) ; 
s pa ceba r ; 
end 

else Degin 

searcher := i; 
left := left - 1 ; 
index := cn? 
count count + 1 ; 
case index of 

' 1 ' : cat[countJ : = 
'2' : catfcount] : =• 
'3 ' : cat [count] : = 
'i' : cat[countJ : = 
'5' : cat[countJ : = 
'6 ' : cat [count] : = 
' 7 ' : cat [count] : = 
'8' : cat [count] : = 
'9 ' : cat[count] : = 
end ; 

searcniatabase ; 
exi t (DBtype ) ; 
end 

end 

else menuerror; 

until nenuloop = true; 
end ; 



'TANrl ' 

'S2AD' 

'INST' 

' C B A r ' 
/ « , /■ 
Of 

'TERR ' 
' V3K ' 
'FORT ' 

'vise ' 



procedure DBclassJ 
var texip : strins[2j > 
begin 

te.np := ' ' 

repeat 
clear; 
lines (1 ) ; 

getfile( 'classmenu.text'); 
writeln(' 5. '.return); 

lines (2) ; 
select ; 
read ( cn ) ; 

if cn in cnarmenu then 
begi n 

if eoln(innut) tnen readln; 

if cn in [*5 ' , 'Q ' , 'q ' , '3' , 'r' J tnen exi t ( DR c la ss ) 
else if cn = '?' tnen 
begi n 
clear ; 

getfile('class.text'); 
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s pace ba r ; 
e nd 

else o e ? i n 



searcner 


:= 2; 


left := 


left - 1 ; 


count := 


count + 1 ; 


case cn 


of 


'1' : 


index := ' A ' » 


'2' : 


index : = ' E ' ; 


'3' : 


index := 'C ' ; 


✓ ' 

: 


incex := 'E'; 


'5' : 


index : = ' 2 ' ; 


e nd ; 




case ir.d 


e x o f 


'A' : 


texp : = ' A ' ; 


'£ ' : 


t e Ti p : = ' E ' ; 


'C ' : 


t e 7) p : = ' C ' ; 


'E' : 


t e ti p : = ' D ' J 


'E ' : 


t e n p : = ' E ' ; 



s ni ; 

catlcountj := concat ( 'Class tenp) ; 
searcniata case ; 
eiit(DBciass); 
end 
end 

else nenuerrcr; 
until rrenulooo = true; 
end; 



procedure EESAassgn > 

0 e er i n 
repeat 
clear; 

1 ines ( 2 } ; 

getfile ( 'sane.Tiu. text ' ) ; 

writeln(' R. '.return); 

lines(l); 

select; 

read ( cn ) ; 

if cn in cnarmenu tr.en 
begi n 

if eo ln( incut ) ,tnen readin; 

if cn in t 'R' , 'r 'a '] then exi t (DBSAassen 
else if cn = '?' tnen 
begin 
clear; 

getf iie( 'sa . text ' ) ; 
space oar; 
end 

else begin 

searcner := 2; 
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left left - i; 
i nie x : = c o i 
count := count - i; 
case index of 

'l' : cat [count] 'ARTY',* 

' 2 ' : cat[countj := ' NGF ' ; 

'3' : cat[countj := 'AIR '; 

'4 ' , '5 ' , 'o ' , '7 ' : cat[count] := 'CG^B'; 
'8' : catlcountj := 'OTHR'; 

'9' : cat [count] 'NONE',* 

= nd » 

sea rcnnata ca se ; 
exit (DBS Aassgn ) ; 
end 

end 

else .nenu error; 
until menuloop - true,* 
end ,* 



procedure DBpri ; 
var ten-p : strin*?[3J» 



t e g i r. 
repeat 
clear; 
lines( l ) ; 

*?etfile( 'tfftpri menu. text'); 
writein(' 5. '.return); 

lines ( 1 ) ; 
select ; 
read ( cn ) ; 

if cn in cnarmenu tnen 



beei n 

if eo In (input) tnen readi 
if cn in [V,'R','r','c' 
else if cn = '?' tnen 



VJ tnen exit (DBpri) 



tegi n 
clear; 

ee t f i 1 s ( 'priority. text'); 
spa ce bar ,* 
end 

else beein 

searcner := 4,* 
index := cn; 
left := left - i; 



count := count + 


1 ; 


case index of 




' 1 ' : temp : - 


'I 


'2' : temp := 


'II 


'3' : temp := 


'III 


' 4 ' : temp ;= 


'IV 
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end; 

catfcountj := concat('Pri ',temp); 
searcndatabase; 
exi t (BBpri ) ; 
end 

end 

else nsnuerrori 
until menu loop = true; 



procedure CBacc; 



begi n 
repeat 
clear; 
lines (2 ) ; 

getf ile ( 'tgtacc menu. text ' ) ; 
writeln(' 5 . ' , r e t u 

lines(l ) » 
select ; 
read ( cn ) ; 

if cn in cnarmenu tnen 



begi n 

if eo in (input 
if cn in [ '5 ' 
else if cn = 



' tnen readl 
. ?. . r , q 
'?' tnen 




begi n 
clea r ; 

getfile( ' t g t a c c . text') ; 
s pace na r ; 
end 

else begin 

searcner := 5; 

index : = . r n ; 

left := left - i; 
count := count - i; 
case index of 

' 1 ' •' cat[countj : = 
'2' : catCcountj : = 
' 3 ' : catlcountj := 
'4 ' : cat [coun t] : = 
e nd ; 

searcndatabase ; 
exit ( LBacc ) ; 



end 

else nenuerror; 
until mer.ulcop = true; 
end; 



r.) 



J tnen exit(D3ar 



'CONFIRMED' 
'r? 05A3L3 ' 
'POSSIBLE ' 
'UNKNOWN ' 



procedure DEs t a us ; 



va r act : string!/:?]; 
loop : to oi a an; 



.eein 

/ / . 
act := 5 

menucar := [ 1 , 2 , : 



] ; 



loop : = false; 
repea t 
-lear; 

1 laes ( 5 ) > 
wri teln ( ' 
lines (1 ) ; 
wri teln ( ' 

1 i n e s ( 1 ) ; 
w r i t e 1 n ( ' 
wri tela ( ' 

1 i n e s ( 1 ) *_ 
wri tel n ( ' 
pronpt ; 
real ( cn ) ; 

if cn in xenuca r men 
degin 

if not eoin(input) tnen reac.n; 
if cn = 'l ' tnen 



ENTER TARGET STATUS — ACTIVITY'}; 

Tne options are:'); 

1 . Active'); 

Inactive'); 

PLEASE ENTS tt OPTION i»Li MrEr. AND 



begin 

searcner := 5; 
searcria ta base > 
looo := true; 
act* : = ' ACTIVE '; 
end ; 

if cn = ' 2 ' tnen 
oegi n 

searcner : = ? ; 
sea rcnla ta ras e ; 
loop := true; 
act := 'INACTIVE'; 
end; 

if cn = 'V ' tnen 



,TU 



■ IS , , 



besi n 

lines ( 1 ) ; 

riteln(' An Active target is one wnicn is found in tne Target List or 

»riteln('tne list of targets. An inactive target is in tne deadfiie.'); 
l i n e s ( 1 ) ; 
space oar ; 
end ; 
end 

else if (cn in ['u'.'q'J) or ( eom(inpu t ) ) tnen exi t f LEstatus ) 
else nenuerror; 
until loop = true; 
left := left - i; 



5 ^ 



count := count + 1 ; 
cat [count] : = act ? 
end ; 

t 

i 



procedure cat menu; 



begin 

w r i t e 1 n ( ' 
writeln(iots); 
lines (l ) ; 
w r i t e 1 n ( ' T n e 
1 i n e s ( 1 ) ; 
wri tein ( ' 
w r i t e l n ( ' 

<* r i t e 1 n ( ' 
wri tela ( ' 
wri tel n ( ' 
*riteln(' 
wri tein ( ' 
lines (1 
»ri tein ( ' 
if amount <= '<! 
1 i a e s ( 1 ) » 
end ; 



Categories for Special 



Listing'); 



listing can contain '.left,' 



iters from me below me 



1. Target type 

2 . Classification 

3. Supporting arm abiUnei 

4 . Prio ri ty 

5. Accuracy 
5 . Status 

P. Process information'); 



'.Icnecx) ; 

', Ccnecx) ; 

' , S '-ne'^ff ) ; 

' , P caeci ) ; 

' , A c r. e c x } ; 

', state r.ecx) ; 



Special list currently contains '.amount,' targets, 
men writem(' Please start a new n 



procedure catproc; 



var taxen : string[l5j; 



oegin 

taxer. := 'Already Selected'; 
repeat 

if count >= t; tr.en 
Deei n 



clear; 
li nes ( 4 ) ; 
wri teln( ' No 

wri tein ( 
li nes ( 2) ; 
space Da r ; 
exi t( catproc ) ; 
end; 



clear; 



more categories 
Please print 



available for special list, 
target listing'); 



case searene 
<2 : ; 

1 : Tcnecx 

2 : C c d a c x 

3 : Scnecx 

4 : FcnecX 



of 



= taxen; 
= taxen; 
= taxen; 
= taXen; 



34 



5 : A cnecic := taicen; 

6, 7 : statcnectc := Uicen; 
ena ; 

ca tmenu ; 
select ; 
read ( ca ) ; 

if an in cnarmenu men 



begi n 

if eom( input) men reanm; 



case cn or 
'l' : begin 

if Tcnect: = ta^en men teiiusec. := true 
else DBtype; 
end ; 

'2' : begin 

if Ccr.ecs = taicen men teiiusei := true 
else Dficiass? 



end ; 

'i' : begin 

if Scnecti = tatren men teiiused := true 
else CSSAassgn; 

®nd ; 

'a' : begin 

if PcnecA = taien tnen teixused := true 
else DBpri; 
end; 

' 5 ' : oe g i n 

if Acr.ecE = taicen tnen tellusea := true 
else DBacc; 
end ; 

'5' : begi n 

if statcnecx = taicen tnen tellusea := true 
else DBstatusJ 
end ; 

'P' , 'p ' , 'R ' , 'r ' , 'Q ' . 'q ' : exi t ( cat pro c ) ; 

'7','B','9' : menuerrcr; 

: begin 

lines ( 1 ) > 

writelni' See orior menu for information'); 

lines ( 1 ) ; 
spacebar; 
end ; 

end 

end 



else menu error; 
if teiiusei tnen 
begi n 
clear ; 
lines (5) ; 
wri te in ( ' 
w r i t e 1 n ( ' 
wri teln( ' 
wri te in ( ' 
li nes ( 3 ) ; 



Category nas already been selected. Please'); 
cnocse anctner category from me unused items') 
on tne menu listing. To start a new listing,'); 
cnoose option 7 to return to tne main menu.'); 
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f c i S - i 



spacebar; 
teliused : = 
s n d » 

until rer.ul o op - true ; 
end » 



procedure screenlist; 

var star : cnar; 

pri buf f : s t ring [3] ; 
sa but' : a t r i n^ [4] ; 
noldcar : cnar; 
pager : integer; 



procedure header; 

var listing : string; 
begin 

listing 1 := ' ' ; 
iines( 1) ; 

wri tel n( ' SPECIAL TARGET LISTING'); 

writelra / . 

write( 'Categories:'); 
if count > 5 tnen count := S< 
for i := 1 to ^ o u n t do 

listing := concat ( listing , ' ',cat[ij); 
wri teln( listing); 
lines( 1) ; 

wri tein( 'TGT NO CL ?R1 LOCATION ALT SAASC- INSCRIPTION 
end; 



oegm{screenlist } 
clear; 
reader ; 

pri Duff := '; 

sabuff := ' '; 

paser := 8; 

for i := £ to reccount - 1 do 
begin 

star : = ' ' ; 

if data base [ij . flag = on tnen 
oegi n 

be Hear := da ta base l i J . pri ; 
case noldcar of 

'1' : oribuff := 'I '; 
'2' : pribuff :* 'II '; 

'3 ' : pribuff : = 'III'; 



ob 



^ . / 

4 : 

end ; 


pri cuff := 


'17 '; 


noldcar : = d a ta tase [i j . sa ; 
case nolncar of 


'1' : 


s a bu f f : = 


' a ?. t i ' ; 


'2' : 


s a Duff : = 


'mg 7 '; 


'3' : 


s a bu f f : = 


'air '; 


/ ^ / / 

- • 


5', 'S', '7' 


: s a buff 


w • 


s a tuff : = 


'otkh 


'y ' : 

end; 


s a buff : = 


' d 0 n e ' ; 



f (aatatase[ij.£tat = 'l') or (data base[ij.s tat = 
rite(database[ij . t num , s ta r , ' ',iatabase[ij .class 
rite(latabase[ij.loc,' '.dataDaseliJ.aitrr,' 
riteln(database[ij .de sc ) ; 
pager := pager + 1 ; 
if na^er = 20 tnsn 
beei n 

• lines (1 ); 
spacebar; 
clear; 

1 i n e s ( 2 ) ; 
pa?e r : = 01 
end ; 
end ; 

ana; 

1 i ne s ( 1 ) ; 

rfritelnC' NOTE: * indicates target list'); 

1 ines (1 ) ; 

spacebar ; 
e na ; 



'2' v tnen 



sta 



I 



procedure re se t J 



begin 

teliused := false; 
amount := 0 ; 
left : = 5 ; 
count : = 2 ; 
searcher := 0 ; 



first := true; 



?cnec£ := 

C c r. e c s: 
Pcnecx : = 

A c n e c £ : = 
SchecK : = 
s ta t cnees 
fori : = 0 
da ta Dase 
fori : = 1 
ca t [i j 

end ; 



emptys t r ing ; 
emp t ys t r inr ; 
emptystring; 
emptys t r ir.g ; 
emptys t ring-; 

:= emptystring; 
to reccount - 1 
l i J . f 1 a e : - off; 
to 5 do 

:= emptystring; 



d c 
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♦: *U 



procedure oueryproc; 



Sri'CUI TUG27 LISTINGS'); 



"ne actions ar; 



1. ?orp a special target listing j 

2. Continue to process'); 

3. V/ rite tne special list t 

4. Infcrration a tout tris p 

5 . '.return' ; 



begin 

count : = l ; 
repea t 
c lea r ; 

1 i n e s ( 2 ) ; 
w r i t e i n ( ' 
writelr. (lots); 

1 i n e s ( 2 ) 

•in tein ( ' 

1 ines ( 1 ) * 
wri tel n ( ' 
wri tein ( ' 
w r i t e 1 n ( ' 

*• r i t e 1 n ( ' 
wri tein ( ' 

1 i n e s ( 1 5 ; 
select; 
read ( cn ) ; 

it cn in L l , 2 ,3 , *= , 5 , R . r , ? J tnen 
c e ? i n 

l i eoin( input) tnen readin; 
case^cn c f 
'l ' : Oe?i n 

reset ; 
ca t pr oc ; 

°r.d; 

'2' : catproc; 

'3' : scree mist; 
e , t : Pe<?in 

c 1 Sc r ; 

getfils ( 'query info. text ') ; 
space tar; 
enl ; 

'5','R', 'r' : exit(query); 
end 
e a a 

else tienuerror; 
until -oenulocp = true; 
end ; 



begin {query} 
reccount := 0 ; 
emptvstring := 
searcner := 0 ; 
cnarnenu : = [ 'l ' , '2 ' , '3 
getdata case; 
reset; 
query pr oc ; 



' ' ' Q ' 

£ f J , 



OC 



o 



ena ; 



( 



j L 



T( n 

« ^ 



V 
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O JQ 



3DA. TEXT 



( v 



*) 



segment procedure target; nod ; 
va r 

stall : strine ! ej ; 

5 1 a 1 2 : string [3J ; 

ttypebuf : st ri ng[4j ; 

pribuf : strinelcj ; 

sa but' : st ri ng [I4j ? 

acc ouf : stri ng [yj ; 

duplicate, fetcnoacn, outprocess, 



ri rs t 



boolean; 



procedure 

procedure 

procedure 

procedure 

procedure 

procedure 



f etcntgt (grid : integer); forward; 
readin; forward; 

cnectETa ( var strng : string? var cnecx : coo dear. N ; 
process; forward; 

cut s t ring ( s t roes i ze : in'teeer); forward; 
putinfile; forward? 



>a rd 



segment procedure newBDAJ 



procedure TTGo f BDA ; 



i n 

u rren tet . 3DA [ SDAcou n ter J . DTGsurv := ' 
wnile not finisned do 
begin 
clear? 
l i n e s ( 6 ) ; 

writeln(' ENTER ETC TARGET WAS ATTACKED... 6 digits and 1 lette, 

prompt ? 

readin? 

cneclcDTG ( s tr , o£ ) ; 
if auit then exit (DTGof EDA ) ; 
if nelpme or not ok tnen 
begi n 

finisned := false? 
l i n e s ( 1) ? 

getfile( 'dtgofbda.text'); 
lines' l) ? 
return bar? 
end ; 

if (fie = 2) and finished tnen 
currentgt.BEA [BEAcounterJ . ETGsurv := sir? 
end ; 
end ; 
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procedure firineunit; 



eei n 

curren tet . -BDA t EDA counter J . fi reuni t := ' '; 

wniie not finisned do 
tegi n 
lines ( 2 ) ; 

writeln(' 2NT3R FIRING UNIT. ...no not exceed 'c cna ra~ ters ' ' ; 

pronip t ; 
read in ; 

if nelpne men 
begin 

finisned false; 
i ines ( 1 ) > 

getf ile( 'funitl.text'); 
lines(i); 
return bar; 
end 

else if lenetn(str) > 5 men 
begin 

1 i n e s ( 1 ) ; 

ee t f i 1 e( 'f u ni 1 2 . tex t ' ) ; 
iines( 1) ; 

finisned := false; 
current? t .flas InJ := on; 
return car; 
end 

else if quit men exit(firir. 2 -unit) 
else if (fie = z) and finisned men 
curren tet . BDA[BDAccunte rj . f i reuni t := str: 
end ; 
ni ; 



procedure rounds; 



eei n 

curren tgt . £DA[BDAcounter] .ntrnis := 
wniie not finisned do 
beein 
l ines ( 2 ) ; 

w r i t e 1 n ( ' ENT3R N'J V B3R AND TYPE OF 

proTipt ; 

readin; 

if iielpne taen 
beein 

finisned := false; 
lines ( 1 ) ; 

ee tf i le ( 'rounds . text ' ) ; 
lines ( 1 ) ; 
re turn ba r; 
end 

else if ienem(str) ) 12 tnen 
begin 



ROUNDS 



I RED 
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lines ( i ) ; 

getfile( 'roundsl.text ' ) ; 

1 i n e s ( 1 } ? 

finished : = false* 
currentgt . f lag [nj := on; 
return car; 
end 

else if quit tnen exit'rounds'i 
else if (fig = 2) and finisned tnen 
current et . EDA [EDAcoun ter] . n t mis := str; 
end ; 
nd; 



procedure damasemenu ( param : integer'; 

var sind : s t ri ng [3J ; 

begin 

if parar = 1 then sind := 'REPORTED' 
else sind := 'ASSESSED'; 
clear; 
lines ( 5} ,* 

wri teln ( ' ENTER DAMAGE ',sind); 

lines(l); 

£retfile('damae , e men. text '); 
lines (2 W 
end ; 



procedure damasrept; 
begin 

curren tgt . 3DA [SCAcoun te r J . dan re p := '3'; 
repeat 

aamagenenu ( 1 ) ; 
select; 
read( cn ) ; 

if cn in ['l'..'3'J tnen 
Degin 

if eoln(input) tnen readln,' 
finisned := true; 

curre ntg t . EDA [EDAcoun tj . da.mrep := cnj 
end 

else if eoln(input) tnen exi t ( aamagrept 
else if cn in ['C'.'q'J tnen 
beffi n 

quit := true; 
exi t( damagrept ) ; 
end 

else if cn = '?' tnen 
begin 

lines ( l ) ; 
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ge t f i 1 e ( 'dam rep. text ' ) ; 
lines ( i ) ; 
returnbar; 
end 

else menuerror; 
until finish 0 ! = true* 
end; 



procedure danagassu; 
bee'in 

currentgc .BDA[£BAcounterJ .damass := 
repeat 

damae-emenu (2 ) ; 
select ; 
read ( cn ) ; 

if ch in then 

begi n 

if eoln(input) men readin; 
finished := true; 

cu rrentg t . BDA [BEAcount J . damas s := cn ; 
end 

else if eoin(input) then exit(damagassa) 
else if cn in men 

begi n 

quit := true ; 
exit' damage s sa ) ; 
end 

else if cn = '?' then 
beei n 

lines (1 ) > 

ze tf i le ( 'da mass. text'/? 

i i n e s ( 1 ) » 

returnbar; 

end 

else menuerror; 
until finished = true; 
end; 



procedure BDAremartcs ; 
var x : integer; 

beei n 

currentgt .BDA[BDAcounterJ .BDAtext := nostring; 
while not finished do 
begin 
clear ; 
lines(6); 

writeln(' ENTER BDA. ...do not exceed one line ' , ; 

prompt » 
readin ; 
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if nelpme tnen 
beein 

finisaect := false; 

1 ines ( 1 ) ; 

eetfilet 'bdarem.text' ); 

1 ines ( 1 ) » 
re turn bar; 
end ; 

if quit tnen exi t ( BDAremariS ) ; 
if (fig = 2) and finisned tnen 
beein 

buffer : = 
cutstring(42) ; 

curren tet . 2FA| BDAcount ] . BCA tex t := str; 
end; 
end ; 
end ; 



procedure BDAinfo; 



begin 



clear; 

1 ines ( 2) ; 
*ri tel a ( ' 
1 i c e s ( 2 ) ; 
wri teln ( ' 
w r i t e 1 n ( ' 
lines(3) ; 
wri teln ( ' 



BATTLE DAMAGE AS SEES MEAT ' / ; 

For information on adding a targe: surveillance 
to tne tareet file, type a 

To continue, press tne RET’P.N :<ey . 



prompt ; 
read’( cn ) ; 
if cn = tnen 
beein 
clear; 
lines (2) ; 

eetfi le( 'odainfo.text') ; 



lines (3) ; 
space bar; 
clear? 
end; 



ena ; 



beein tnewBDA) 

if not current tnen 
oegi n 

BDAi nf o ; 
fetcctgt( 1 ) ; 






if auit tnen exi t ( new EDA ) ; 
i : = 1 ? 

wniie ( eu r re ntst . r la*? L lo + ij = 
oesi n 

i : = i * 1 ? 
if i - 4 men 
beei n 
i := l; 

currenmt. fla^US + iJ • - 
end ? 
end? 

BDAcounter := i ? 
n : = 15 * i ; 



end ; 

endBDA := false? 
wniie not endBDA no 
begin 

for ii := 1 to o io 
oegi n 

finisnea := false? 
case ii o: 

1 : DTGofBDA? 

2 : firingunit? 

5 : rounds? 

4 : damagrept? 

5 : damagassa? 

5 : Deein 

BEAremar is ? 
enaBDA := true; 
end ? 

ena ? 

end ? 



end ? 

if current tnen exi t ( newBDA) 
else begin 

»itn currents do 



begin 

if stat = ' 2 ' tnen stat 
else if stat - '-s' tnen 
else if stat = ' 6 ' tnen 
e nd ? 

witn currentCT io 
oeei n 

if stat = ' 2 ' tnen stat 
else if stat = '4' tnen 
else if stat = '6 ' tnen 
e nd ? 

puti nf i le ? 
end ? 
nd ; 



off) a o 



on ? 



Stat : = 

s i/ a t • 



/ . / 

: - x 

stat : = 

stat : = 



4o 



C J Oi C J C A 



(* 



TSTFRCCS . TEXT 



*) 



(* 



procedure nanamsg; 

begin 

1 ines (l ) ; 

getfi le( 'mand-nsg.text'); 
1 ines ( 1 ) ; 
spacebar; 
end ; 



procedure readin; 
var len : inteeer; 



begin 

nelpnne := false; 
re a dl n ( s t r} ; 
len := iengtn( sir); 
if len = fc5 tnen flg^:= Z 
else if strllj = *'i' tnen ris := i 
else if (len = 1) and (str[lj in ['0','q'j) tnen f 
else fig ;= 2; 
case f 1 s of 
'£ : begin 

if 7i a nda toryi ten tnen xandnsg 
else finisned : = true; 
end ; 

1 : nelp.ne := true; 

2 ; be?in 

currentgt .f iae [nj := off; 
finisned := true; 
end ; 

3 : quit ; = true; 
end 

end ; 



procedure cnecxccum ( var strng : string ; var cnecfc 
var x , i : integer; 
be^i n 

cnect := true; 




1 n e l p } 

g := 3 (quit) 

{ conti nul 



: boolean ) ; 
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x : = le ng tn { s t rng ) ; 
if x = 0 men 
cegi n 

fetcn bacx := true*' 
exi t ( cnecxnun ) ; 
end > 

if x O 5 tnen 
be?i n 

cnecx := false; 
exi t( cnecxnun ) * 
end; 

for i := 1 to if do 

if not (strng[ij in tnen 

beei n 

cnecK := false; 

rfriteln(' Use upper case letters for target designator''; 
exi t ( cnec tnum ) ; 
end ; 

for i := 3 to 5 do 

if not (strneli] in tnen cnec.x : = false; 

end ; 



procedure cneclcdigit (var s trng : s t ri ng ; var cr.ecx : ocolear; rng : integer/? 

var i, x : integer; 

oegin 

cnecK := true* 
x := lengtn( st rr.tr ) * 
if x = 0 tnen 
be?in 

fetcnoacK := true; 
exit(cnecxaigit); 
end; 

if x <> rng tnen 
begin 

cnecX := false; 
exi t ( cnecsdigi t ) ; 
end ; 

for i := 1 to n? do 

if not (strng[ij in f'0'..'y'J) tnen cnecx := raise; 

end ; 



procedure cutstrin? ; 

(* (strngsize : integer) removed for f*d dec *) 



4:7 



var 



cutter : integer? 



b 9 s i n 

if iengtn(str) > strngsize tnen 
begin 

for cutter := l to strr.gsize do 
ouf fer[cut terj := str[cutterj; 
str := buffer; 
end ; 
end ; 



procedure caecsDTj ; 



(* (var strng : string; var cnecic : boolean) removed for fwa iec 

var i : inteeer; 
begin 



cnecit := true; 

if lengtn(str) = 3 tr.en exi t ( cnecxDT3 ) ; 

if lengtn(strng) O 7 tnen 

begin 

cnecir := false; 
exi t ( cneciDTS) ; 
end ; 

for i := 1 to o do 

if not(strng[iJ in tnen 

begin 

cnecu := false; 
exi t ( cnecffDTG- ) ; 
end ; 

if not (strno>[7j in |/A'..'Z'J) and not (stmgl?J in ['a 
cnecic : = false; 



'D 



end; 



2 ? ) 



f . . 

V 



- I j - j i. • • li - . I 



u r o c e a v« r e v c : i : / n. u n » 
oegir. 

tor i : - - to r* a 7 : =t r 1 * 
1 ; ** 1 Ti a 0 [ i j = sir ; 

i i r. e b ( 'd ) ; 

i i n e s ( i ) ; 



i, i. \J 

n c r. 



'J - W i. 



* - - - J = ■' - 3 <* - 



* i. * b z x *i v 

» r 1 1 c i r. ( 
v r i tain v ' 

1 i n ® s ( 1 ' » 

i pG ^ 3 w 2 , f 

OLipll Ca 19 

10 * ~ z 1 



f d i c U : 

v ti 1 s 0, u . 



cer , 
c ^ t : 



1 1 r d ] 
./ o u 



u s 
c :* 



— — w ^ U -* 



r t r. U Ti j 



ill r. 
a n i i • 
o e v i . 



-* 1 ~ 2 . S ^ £ 



0 ~ ■ / ? 



lines m ; ; 

w T 1 t r 1 r* v 2 j . . A *l « A r. u .1 * 

pronp: ; 

t j, c * *? r • 

* V_ W W .i. 4. f 

if j u i t 1 r. s n exit ( t «• 
cr.ecicaum( s tr , ox) ; 
if n e i prr.e or r.ct ex t, 
reel n 

fir. 1 sue 1 := false; 
lines (1) I 

?e tfi le ( 'tr.u.-r, . text ' 
i * n e s ( 1 ) i 
re turn car ; 

S tl d j 

if (ms = 2) arm fim 

^ ^ o - — 

implicate := ialse; 
v e r i f y nr; 
if nu plicate men 
c ? ? i r. 

4 ui t 



: r o . 



r f 

C >•- — b V L b *» W4. 1 



» 

/ » 



tn fl; 






.x e r 



nun 



s t 



f 



t 



,r oeenure 






x Cl L. fc. 3 * — r* 

a a i 1 2 not : 1 n i m e 1 1 c 
ce s *m 

C i 6 a r t 

i ineb (a),* 

*/nten( ^ I ^ r. usu-i LOC.-.j 

prompt; 
r s a ci i n ; 

cn= r-r. fe e ) ; 

if quit tier. exiUiqi.^'' 



o e = 1 1 c 1 1 b 



if aeipT-s c. 
ce&m 



X ^ V- / 1 

net c£ men 



: i n i s n e a : = raise » 
xine^( x) ; 

I 1 C 4 V J J 

es ( i ) ; 



l rn ce r ; 



c lx U > 



(f 



- ^ v i » 



oe^i n 

^ ' n r n r •* ' ^ 

W 4 . ^ W U w 0 • 

Cu:. = Hww .lot • si*) 
eni ; 



en d ,* 
e n a ; 



procedure mtue^c* 
c e ag i n 

a n i I e net rinisnel ic 
tenia 
Cxear; 

A i u S b V u / ) 

text \ -.<x^r* x n u i * 

0 r 0 7 i p t ; 

r 5 a 1 i u ; 

it j u 1 1 t a 6 a a 1 1 1 ( 1 r 1 1 5 a c ) » 
if neip.ne men 



> . 

/ > 






o e “ i n 

r inibnei : = : usei 
i i n e s ( 1 ) \ 

4° i n i s ^ ' 14 ties c . t= c t ' ; 

ii.lSb (i / > 

reiurncari 

9 nc j 

it ( : i »? = c) ini r inibnei ; n c n 
i o e *; i n 

curler : = 

C U l b Z r 1 L r* TO/ * 

current? i.i^Sw • = sir; 

I D u r r* 9 r : = 

cu t b c ri r. ^ )■ ; 

c u r r e n c. T . a e s u : - e i r ; 
s n i > 
ena; 

. . i 



oc e iu re istciabbj 
t’i r. 

re pea t 
ciear; 

*ii: = s(c)i 

i r 1 1 s ( ' c i a s s r s n u . t e x z ' ) ; 
x i r. e a ( i > ; 
select; 
re a:(c a ) ; 

i: cn m -eauaar men 
cesm 

i r ? o i n (input) men r e a : 
cu r ren mt . : i as L r. j : = o: 



i n ; 

* i 



case 

r . ' 



/ f 

£ 



cn c r 
: oe?in 

curreat^t .ciab^ 
currents I .Ci^s 
er.a ; 

: c e g l a 

currentgt .exass 



ru; 






lx A £ ~ U V . 

.a c ) 

> o l r> 

- - o A “* 

current? t .class 
curreaul .Class 



a ; 
' A ' 1 



W > 

i r 

~ 5 



'c 

/ ,, / t 
0 > 



O c-t 



/ * 
3 



currenwt . c 

Cl** j .3 i o v ^ S d 

en:i 

r ~ kj* ^ *| 

;u:rcn;^c . c xa s s 

C’liTcn iVT .CxdbS 



r ^ i 

****** 



: c a ^ i n 

c ir:-L c^i . I'id^Lr.j 
: i :, i s r. e 1 : - : i _ a e ; 

c ill error } 
a a a j 



’ ? : c e r i :* 



v; * d a ; » 

i : r. c b \ -L > i 

ix 2 \ 

X 1 3 £ s \ I ) I 
space car ; 

*.1 w r* w 

: mis 3 d a : = :' a . s - ; 






i n 



r / / x 



m’j i z • ~~ z r u c > 
exi t( t^uCxcSS , > 



s-se i: (eom(inpui J; men ndnuroe: 
rise Menus rr or ; 
n n : i I : i n i :> a e i - : r u s ; 



enu i 



procedure igtpri; 

c e x i a 
repeat 
cieer; 

1 ines ( 4 ) » 

«=.■ = ; : 1 1 e ( 'tgtpri menu. text") > 

lines ( 1 ) ; 

a); 

if c n in Ti e n a c a r men 
c e ei 3 



if eoin (input) men 


read l a > 


l : c n l n [ 1 . . 4 J 


tnen 


o e s i n 




cur ren tg t .i mg [nj 


: = or: 1 ; 



eld 




f D fD 






o 



fimsned : = true; 
currer. tgt.pn cr. ; 
cu r reu ; w T . p ri : = c n i 
ena ; 

if cn = t.ien 



o e e i n 
clear? 

1 ines ( 1 ) ; 

eetfileC'priority.text'/; 
1 ine s ( 3 ) ; 
spaceoa r; 

3*1 J 

if on ‘in ['5' 
r.d 

1^0 ^ *■* /-* b ^ n 

berin 
oui t 
e;c: z 



^ r' 





c r ; 



ore caiur: 



i> A j J ii - 3 | 



v a r loop : cooiea: i 
ccce : integer; 



procedure activ; 



ceg 1.1 

loop := faise; 
repea c 
clear; 
l i n e s ( 5 ) '. 

* r i t e 1 n ( ' 
iines(l) J 
w r i t e 1 n ( ' 

1 i s e :» ( l ) ; 
wri telai ' 

* ri tel r. ( 

1 i n e s ( i ) ; 

* r i t e i n ( ' 



■-> i i A ~t -v 



. n ‘1 kj 



i T o I A T r J d — C T 1 7 1 1 



Ice out ions a re : ' } ; 



2 . 



Active' ) ; 
Inactive'); 



r Li AS .6 Qr'iIO.'i « u!’ rir. Aha. r." tj; ;» 



protp t ; 
readied / > 

if cn in cenucar tn = r. 
d e g i n 

i : not a o 1 r. ( i a^u t ) 
if cn = 'l' tner.. 
o e g i n 

coie : - G ; 



tner. real±: 



o3 



(0 <D 



.*.0^0 • l * 'A W f 




- no i 



j:oce:ure 



5 13: 



-o-P := :i.se 
rep^a t 
n 1 *? a r J 
1 1 n e s ( c ) t 
*ri i?:r- i 
i i n e 5 ( *. ) ; 

is.u( 

-l i r. e s { I ) ; 

* ri zei n ( ' 
-riiSira ' 
i i n s s ( 1 j i 



~ ± z . 



. fi 3 op;io.ib q: 

i . la r^e i 
> . L is: of 



l;s 



/ f 

t ' , ; 



/ i 



a a ( c r. ) ; 

i f cn l r. r,5:.ucir tie n 
c a - i n 

if eoi r.( i gou : ) t a e r. reofir.; 

if c r. = ' 1 ' t r. a r. 

- 

c o a a := coas - 35 
iccp : = true; 
e : ; 

if cn. = " c' taea 
ce^i a 

coaa : - aoaa ♦ o ; 



0 ) U (D *♦. £3 fl) M- o M (0 (V <n c ♦ CD 



I 



loop : = : : u e » 
eaa; 

if co = in so 

c e ? i n 

1 1 0 fc 5 ( d ) i 

a r : g e i n ( 'Toe I e r h; s g List r e :' s r s 
* r i g e j. o ( o-duudrter^ . 1 1 a g : r ^ 
writcmi ' iso u to- . i < 

^ 1 0 5 S ( 1 / I 

s oic e g i r ,* 



; 0 r G _;s; or* Got 



- r x* 



tercets 



/ # 



/ * - * ' C 



C . 



rise 



r / 

* «< 



c £ e : -- 

unit ir^si 
e no. 

else ii ( 201 : 11.^11 / } trier* rur. a;ns = 
e x s c neuuerror; 
until loop = true; 
eti i 

oroceaure dttansi, 



c e 5 a n 

loop := raise; 
repea t 

ciear; 

1 in as ( 0 } ; 
m r 1 1 e i n l 
11 r.es \ 1 1 »_ 

<• r 1 1 e i n ^ ' 
s( 1) » 
eir. ( ' 
e i :u ' 
s ( 1 ) » 
c t ; 

( c r. ; ; 

a m n e nu c a r t r. e n 

n 

eomdiput; men ream) 



L.< * jIu 1 .ir.vli 0 

xoe opt 10 os are: '/i 

i . a t trciei ' ) ; 
a* > c t attac^-ea 



* x. 0 ~ c i> r i* . 



^ **w - 1 



/ > 



/ ^ ' 
x G O t: 0 



;in 



ccae coae ->■ 7 ; 

loop := true; 

• 

w f 

cr •- ' 'd ' men 
si n 



coae : 
x o o p : 



COOS + zt 9 

z rue ; 



co - 
s i o 



ll) (/> 



fA O 



('.UidCK = o. :-r & '2ts ir= ta:se ei; a jic=: 
' ✓ 

V i 0 * /v ». i C ,« t.i c * a 






a surveillance c r* 



'em r it 



f 15 / » 

- • > J 



s y a c e car ; 



:n ir. L 






/ / > / / 
y C « «" • 



r ; 



/ / / 



else ii cr i :. t 

r» a i ~ 

w ~ -k. *i 

uUll ! = t T U rj 
dXllvSCCdCndl/ i 



♦ j j t n e n 



mse i 
else reiuerror; 
. i *ooi = t r u £ j 



( eoln{ input ) } men riacnmsg 



immcsmb; 



. e i .1 
‘ c P CC1 ^ 
iir^s^) i 
ac t i /e ; 

l : c u 1 : men sx:;( ulsusus »i 
± i s i a i ; 

II J U 1 o I C L ®X1 l y I & l 3 li I’ub / j 
atidmei; 

ii* u u i t men e x ; m c ^ t s t e i u s ; 
: iiisr.e: • ~ t ru e $ 

-ase coue o: 






cn : = 



cn 



X J 

/ / 

=■ £ > 

/ , / , 
O j 



c .1 • - *=. > 

ce^i a 
*. i a e s ( d ^ » 
a r 1 1 a i r. ( 

^ p a ^ e i d r ? 

im l sneu := raise; 

em ; 



c i 7 i c i n a c i o a ~ o t cos:x:.e, , .oirasc rceucer sta 



‘ 4 ? 



i n : = d > 

end ; 

un ;i 1 : irimei ; 

id c. m [ ' 1 ' , 'o' , ' o' l men au;n tcnec-c : = uemecnem - i; 
curren •dxa^ [n j := c r i i 
current*'; oia; cn; 
urren tvT . s t at :- cn; 

> 



oo 



rccsiure t ty pe > 
i r t) e n u r* u .ti : rviiu?! 



r / /■ ' . , ' 

= . 1 • ^ , 



:tin 
T,er.uau.T 
ra pes t 
Clear? 

i i r e s ( 2 ) ; 

^2 t i i i 9 v 1,; J5 T S‘*U . - r X t / ? 

unesd' ; 

S51=r;; 

readier,' ; 

i: cn m nsr.unu.ri i;*cn 
r = c] i n 

i: coin (input) tn = n re= iii.i 
i n l s n 6 a : - t r u 2 

e r. x 

else i : c n in I ' » ' , " h * j t r. e n 

Cie'lfl 

^ ait := true; 
exi t ( :^ t ty p £ / 5 

6fi C 

£ i i e if (eeir. (input)} c n e r. 
o e s i n 

CicaT ? 

i i n e s ( = ■ i 
Tdnarb^; 
eaa 

eise i: cn = tr..n 

c 8 ? i n 

1 1 n e s ( l ) ; 

=:e t:‘i le ( ' i ty pa . te x i ' ) ; 

1 i n e b ' l ) ? 
reiurncdr ? 
enc 

else xe nue r rcr ? 
until f i ni s r e a ? 
curren tg t . t ty pe := cn? 
currents, rla^lnj : - o t : ; 
curren iZi . t ty pe := cn? 



, ^ 



* J 



» 



)roceiure t^taitj 

var x, v : integer* 



- 3 in 

no s t r i r. ? ; 
no s t r l r. ? ; 
ea 1 c 

o 5 s 1 n 



ou r rental .el t 
curren tar. ait : - 
• nils net f i n i b n 



O XI 



-'iaar ; 

^:.cs(c' ; 

^ ^ p I A ? S ^ 7 

j r o t p i ; 
r tr a a 1 a ; 

11 4 U I : 1 11 r Ti r 1 * l \ - 5 L a i C y > 

• — a.-jU'x \ ^ u« / j 

: 3 r v : = 1 i o c l o 

t r * r ' . ' 

not \ i o r t v j in ^ i 






~ L . ~ C » 






i : = nisei 

. i n. e s ( 1 / »' 

5 c llli^V u5tc.lt.t6Xt / i 
1 1 n e ^ ( 1 1 j 



returnee:; 

en:; 

i : ( : 1 s = £ , 



‘ 1 n 1 s n e 1 



b - . f 



C ^ 1 * C *1 w ii) U • C JL t 

curreni.T.aii : - a : r ; 
c n n > 



^roc 
v i r 



e:u:^ lAass^n, 

TieiuiiTi : rr, value; 



r ^ / < , / * . r / / ' / / ✓ / ^ / / x / 

r r. e n u rn :— 1 - , _ , , — , 0 , o , < , ~ , 3 \ 

?a: 
x e c r ; 
i 1 n e s ( H 5 
25 ti iie( 
xiaes'l); 
select; 
reap ( cn ) ; 

i:' cn n •ner.unum men 



sa~err,u.text / ; 



i:' eomv input; tr.en reanr.; 
iinisnen := true; 

p ^ rj. 

else ii cn in men 

c C F 1 .1 

quit := true; 
exi t ( s Aasait) ; 



ci s w li cq - . u*^ n 

n fi ^i n 

r ; 

mes(:>i 

ge t: 1 1 e v ' sa . text ' ; ; 
i i ri e s ( i ) ; 
re t urn Ccr 5 
ena 

else ir eoin(input) men 
te?i n 

rurren tgt .sa : = '9'i 
cur renter. aa := ' d ' ; 
exi t ( S A. a s s?n ) ; 
end 

else menuerror; 
until rimmed; 
rurren tgt. sa := cn; 
current?! .rie? InJ := off! 
currentOT.sa := on; 

end ; 



nroceiure remancs; 
tegi n 

rurren tgt . rem := r.ostrir.g; 
w n i 1 9 not rinisrei ao 
De?in 
clear; 

1 ines ( 6 ) ; 

wntelnl' ENTER ctE^AniS CUNCiri.Ni.NG- TARGET. ...do not exceed 

prompt ; 

reaiin; 

If nelpme men 
r>egin 

rinisnel := raise; 
lines ( 1 ) » 

getfile( 'remarks .text ' ) ; 

1 i nes ( l ) ; 
return car; 
end ; 

ir auit men exit ( remancs ) ; 
ir ( r If = d) and r in is nea men 
oegi n 

o u r r e r : = ' ; 

cuts t rin? (-=(?) * 
currentgt . rem := str; 
end ; 
end ; 






OH0 1 i no ' 



procedure xapref? 



resin 

cur re ntgt.ma prefer := nos t r ins ; 

# n i l e not f i r» i s n 9 d do 
resin 
clear ; 

1 i n e s ( d ) > 

uri teln ( ' il.MTSR TARGET MAP RdTiPRNCE 

prompt; 

rea din > 

if neipme tnen 
Degin 

fin is lied : = false* 

1 i n e s ( 1 ) >* 

ge tf iie( 'mapref . text ' ) ; 

1 i nes ( 1 ) ; 
return car ; 
eni ; 

if auit tnen exi t ( mapref ) ; 
if (fig = d) ana fimsnea tnen 
rpgin 

Duffer j = ' ; 

cutstri ng( dV ^ ; 
curren tgt . nap ref er := str; 
end ; 
end ; 



so not exceed dd c n a r a ~ t 



procedure source; 

Degin 

curren tgt . sour := nostrmg; 

*mile not finis red do 
oegm 
clear; 
lines ( d ) ; 

writem(' KNTiR SOURCE Of TARGET ... .ao not exceed di mara^ters 

prompt ; 
rea din; 

if neip-ne tnen 
b egin 

f i n i s n e d : = false; 

1 i n e s ( 1 ) ; 

getfilei 'sour. text'); 
lines ( l ) ; 
return car; 
eni ; 

if auit tnen exit(source); 
if (fig = d) ana f missed tnen 
Degin 

ouffer := ' '; 






I 



''utstrin?( d'i ) ; 
current^ t . sour := str; 
end; 
end ; 
nl» 



rocelure afotonum; 
esi n 

currsn tgt. pnot cnum := nos t ring; 

* n i l e not finisned do 
Deg in 
'-iear ; 
i ines ( b ) ; 

wri teln ( ' aNTStt AiRlAL PHOTO 'JUHrih'); 

* c 

prompt; 
readin ; 

if neipTie tner. 
negi n 

finished : = v a 1 s e > 
lines (1); 

getfil?( 'afotonum. text'); 
lines ( l ) ; 
return fieri 
er.d ; 

if auit tnen ex i t ( af c to nun ) ; 
if (fig = ' d) and fimsned tnen 
negin 

cuffer := ' ; 

cutst rme( lb) > 
currentgt . pno tonum := str; 
end ; 
end ; 

?nd ; 

procedure pnotosrii; 
cegi n 

range := b ; 
rfniie not finisnei do 
cegi n 
clear ; 
lines (b) ; 

getf l ie ( 'pno t os rill. text '); 
prompt ; 
readin ; 

if fig = 0 tnen 
Degin 

currentst.pnotocord := nostring; 
exit(pnotogrii); 
end ; 

if (fls? = d ) and (ienstn(str) = l) and (str[lj in 1'5','s'j; tn°n 



bl 



d e 2 i n 

currentgt .pnotocora := curren tg t . lo c ; 
exi t ( pno t ogrii ) ; 
end j 

cnecKdigit ( s tr , ox , ran?- e ) ; 
if quit men exit (pnctogria); 
if nelpT® or not ok men 
oeg m 

finisned := false; 
lines (l); 

gstfiie( 'pnotogrid’g.text'); 

1 i n e s ( 1 ) ; 
re turn Da r ; 
ena ; 

if (fig = d) ari finisned tnen currentgt .pnotocora := str; 
en 1 ; 



procedure DTGactive; 



oeei n 

currentgt. DTSac t := nos t ring > 
wniie not finisned do 
neein 
c l e a r ; 
iines(6) ; 

rfriteinl ' 2NTEP DTT TARGET ikS ACT I VATED . . .o digits ana 1 iett 

p r o n p t > 
rea din ; 

cne-'X TC(str,os); 
if uuit tnen exit (CTCactive ) ; 
if neipne or not ok tnen 
d e & i n 

finisned := false; 
iines( 1) ; 

se tf i ie { 'lteac t . t ext ' ) ; 
lines ( 1) ; 
return Dar; 
end ; 

if (fig = d ) ana finisned tnen currents! .DTCact : = str; 
end; 
ena; 



procedure tgtaccuracy; 



besin 

curren tgt . acc := 'e'; 
currentCT . acc := '<±'; 
repea t 
clear ; 



oil 



i i n e s ( 4 ) » 

?etf i l ? l ' tet accre nu . tex t ' / »* 
l ines ( 1 ) ; 
select ; 
read ( cn ) ; 

it' cn in tenure r men 
Desin 

if eoin (input) tnen real in; 

if cn in tnen finisnel := tru 

if cn in [ '5 ' , '5 ' , 'R ' , 'r ' j tnen Tienuerro 

if cn = tnen 

be?i n 

i i n e s ( 1 ) >’ 

getf iie( 'mtacc.tert'); 

1 ines ( l ) ; 
returnoar; 
end ; 
end 

else if cn in |/0','a'J tnen 
be/fi n 

a u i t ; = true; 
exit(tftdc curacy 'i ; 

° nd 

else if eoln(input) tnen exi t( t?ta''~uracy ) 

else -nenuerror; 

until finisned = true; 

current?! .f la? [nj := o t r ; 
current?! .ace := cn; 
currentCT .acc := cn; 

end ; 



S3 



(D 



(* CHANTS ??.'J Ci’DU Hi 

procedure caseproc; t'orwar^ ; 
procedure dispiaytet; forward; 



proceiure cnenge; 

var puncnout, yes : ocolean; 



proceiure cnangeinfo; 

i? e g i r. 
clear; 

1 1 n e s {'d ) ; 

getfi i e ( 'cnangei nf o .text ' ) i 
1 i n e s ( ‘<i ) ; 
s pace car ; 
c lea r; 
eni ; 



procedure y e s c n e c £ ; 

ho^ i 

fin is r.ei := false; 
yes := false; 
lines(3); 

*riteln(' Cnan*?e v i(es) i\(o)'l; 

prompt; 

read ( cn ) ; 

if (eft = ' t ' ) or (eft = 'y') men yea := true 
else if ( cn = 'j') or ( cn = 'a') men puncnout : = 
end ; 



orocedure cngproc'3; 
ftegin 

w i tft currentet lo 
Degm 
clear; 
lines (S ) ; 

wnteinv' Current air pnoto grid is . . . ' , pno tocori ) 
yescn a c£ ; 

if yes men pftoto^rii; 

if punenout men exi t ( engpro c'd ) ; 

clear; 

1 ines (3 ) ; 



t rue ; 



b«= 



*ritem(' Current ~ TG target activated is . . . ' , IZ ca 
yescnecfc; 

if yes men CTGactive; 
if puncnout tnen e xi t { c ns pro z'd ) ; 
clear ; 

1 i n e s ( 5 ) 

writemi ' Orrent accuracy is . . . ' ,acc cuf ^ ; 
y e s c n e c * ; 

if yes tnen t?taccuracy ; 
if puncnout tnen exi t ( cngpro c'd ) ; 
end ; 

eni ; 



procedure cnange pro c ; 
neei n 

quit := false; 
caseproc; 

witn current?! 10 
oegi n 
clear ; 
lines(ki ) ; 

writein(' lAf.G^T .N U- v a ilr. ',tr.ur)i 

l i r. e s ( 5 ) ; 

writelnl' Current location i s . . . ' , lo~ ) ; 
yescnecic ; 

if yes t.ien t ? 1 1 o c ; 

if puncnout tnen exit ( cnange pro c, ; 

clear; 

1 ines ( = ) ; 

*ritelni' Current description is...'.iesc); 
yescnecK ; 

if yes tnen tgtuesc; 

if puncnout tnen e x i t ( cnan^epro c ) ; 

clear; 

1 i n e s ( b ) ; 

writelnl' Current class is. class ) ; 
y e s cn e c x ; 

if yes tnen tgtciass; 

if puncnout tnen ex i t ( cnane-epro c ) ; 

clear; 

lines ( b) ; 

writelni' Current priority i s . . . ' , pr i ouf ) ; 
yes cnectc ; 

if yes tnen tgtpn; 

if puncnout tnen exit (cnanee pro r ; 

clear; 

1 ines ( ~ ) » 

writelnl' Current status is . . . ' , s tatl ) ; 
vntein(' Cn target list7..',stdt<d); 

yes cnees ; 

if yes tnen t?t status; 
if puncnout tnen exit ( cnaneeproc ) ; 



o 



tty peru i ) ; 



Clear? 

1 i n e s ( r ) » 

•«ritelni' Curreu type is...', 
yes cr.ec & ; 

if yes men tgttype* 
if pun or. out men exi t ( cr.an^epro ~ 11 » 
c i s d r » 
imes(:)i 

*ritein(' Current altitude is . . . ' ,ait ) ; 
yes cnecK ; 

if yes men tgtait; 

if punenout men exit ( cnan^epro / ' ) ; 

ciccr; 

i i n e s ( = ) ; 

*ritein(' Current supporting err assimei is. . . ' ,sati 
yes cnee. -c ; 

if yes tner. SAassgn; 

if pun or. out men exi t ( cran^epro'' ) ; 

clear: 

i i n e s { = ) ; 

writeini' Current renarxs a re . . . ' , ren ' » 
yesenee* ; 

if yes men remarks; 

if punenout tnen e x i t ( ma n=?e pro c ' ; 

clear; 

l i n e s ( = ; ; 

*ritein(' Current map reterenre is . . . ' .maprefer^ ; 
yescnec-t ; 

if yes tnen m a p r e i - ; 

if puncr.out men ex it ( maneepro c ) ; 

clear; 

i i n e s ( c ) ; 

writelr.(' Current source is . . . ' , sour ) ; 
yes cnees ; 

if yes tnen source; 

if punenout tnen exit (cnarmeproc ) ; 

clear; 

lines(b) ; 

v*riteln(' Current air pnoto numcer is . . . ' ,pno tonum ) ; 
yes cnee k: ; 

if yes tnen afo tonum; 

if punenout tnen exi t ( cnaneepro ? ' ; 

cngprocid ; 

end ; 
eni ; 



negintenange) 

mania to ryi tern := false; 
cnangeinfo ; 

if not current tnen fetc.otg t { 1 ) ; 



cc 



it ^uit tnen exi t( cnan^e / 5 
re pea t 

puncnout := raise; 

clear; 

lines(it) i 

wrimm(' Target ' , currents . tnun 

i i n e s ( d ) ; 

^etfiiei ' cn a rmen e nu . text ' ) ; 
i 1 nes ( d ) ; 
select; 
reaa ( cn ) ; 

it cn in tT| / j 

De?ia 

if eoia(mput) men reeim; 
case cn of 
'l ' : iiSDlaytet; 

'd ' : cnaneeproc ; 

'■5 ' : Degin 

putinfiie; 
outprocess := true ; 
ex i t( cnar.ge ) ; 
e r. i ; 

r' : exi t ( cnan^e ) ; 

'{' : negi n 

li nes ( d ) ; 

getfi ie( 'ena ng ex. text'); 

1 1 nes ( d ) ; 
spa ~e ca r ; 
ena; 

enc ; 
ena * 

until "nenuloop = true; 
ena ; 



is ioac.ec into 



t n e r. 



T i e n o r y 



(V jg p i <d ^ a> 






vd: 



0 c X w . J 



' o _• *1 p 

j : = * ; 



t- » 



wr.;.- r c ; soil large:/ 
^ 3 i r 

O ‘ 



; o a . ~~z u t 4 . > 

-' e z ' ; a r % e t ) ; 

_ i • i 

a o [ * J • w 

i _ * • 

x a. » 



- r i f r - * 1 



i : - 



i = i e tr-i. 



r Cpl n 

-v r i t e ( cl c i 

1 • ~ 



t J 



e na » 



oroccwiirs : e t on mt >' 



v a r r o m e 
1 1 r - i 



• = = r : 



^ 3 1 r 

firs: : = true; 
r : - 2 ? 
ranre ;= c ; 



:‘e t^r. oa c u : : = false; 
r i n is nei : - false; 

4 u i t ; = raise; 

ranua tcryi t en := faise ; 

n • - l ; 

wane not f i n l s n e a a o 
o e *? l n 

s(o); 

r i a = c :r.en w r 1 1 e i n ( ' 



i .N T ii £ j- ?. 1 L L 0 C A T 1 w A 



w r i t e l m 
P r * * 



T ^ R f A n vj Jt T W U B A R ; 



i n j 



viz - 2 men crecrco i^i i ( s t r , o .< , ra n*?s } 
onecrcnun (nr,o*-c); 
i : j u 1 1 men e 1 1 1 ( : e i c n t ^ z ' ; 
if fetCQoaci men neipne ;= true} 
if n e 1 n . t e or not o £ men 



ct 



: 0 e i n 

: : n i s n e a : = taibci 
1 1 n e s ( ^ ) * 
it •'ril = ix men 
o e r l n 

e t i i e C ' m t i c c . :e J 

O r] 

else 
d e <? l r. 

=?e t i i e ( 'mm .text ' ) ; 
e n 1 I 

a. i n e s i'd ) ; 
return ra r » 



it ( f 1 < = £ ■ a c a f i r i s n e a m = n. 

•"* o c* ^ *"* 



c x ee r » 
l i n e s ( 5 ) ; 
i: ?ri: = x men 
c e i n 

vritel ' Ssercrir^ for ,*na coornmams 

PVT i "♦ l» ^ 'i ma •*■> * 

UUJ. 4 . At «. 



*r:te.nv 



eise *nce^ oea remind for unei , sir;; 
reman : - t ; 

»r:ie(io:) > 
if = 2 men 

^ na i r> 

: o r re mu n : = c z o r.uccru ; - : ~ c 

n ^ j* 1 n 
- - n* “ 

i: * ri ir-a p [ rec run] - j>tr trer 

: c ■ i 

iires(l); 

Iir.ee t nc . ' , ts?tr. i j[re?r.urJ , ' ras . c r : : 

ii ::r st men no lie? : = 

:'i rs l : = feisei 
r : = r - I > 



era,* 



if r - i ;nen re c run : - roller; 
i : r > 1 i a e 



: i ri sneu : = ra^se ; 
* i n e s ( 1 ) ; 



-v ri tern ( ' 

1 1 r e b ( i ) ; 
s p e c e r c r ; 
e x i t ( e : c r t g : ) 



Select t re aesirer target r.unrer iron ire -:ovt ns 1 



en c. 

else ■* n i l e ( 
r°rrur ; 
rfn z e( no : ) > 
if recnu- = i.uir;Deru;t - i men 



^irrap Lrecnum \ <’ stn am no: (r = om.n = cv-'Csruu - 
re mm - i; 






: 8 * i r 

♦ ^ ' £, ' 

e r r o r £ >' 

an ^ 

S S 9 

n C ^ T ~ 



iiS8 j 



rt r : i e i :ot) ; 

*es£ ( :i.ve; ,re:.;jr! ; 
-*e: ( t< 



,arxS£ i 

^ * a i» “ \ * 0 c j j 

^ 1 1 r r a ^ i • — 
. / 



: = ^ : rec > 

= = < v.'t recnuri) i 

current.! : = *I~.juerrec; 

« r i s e ( i o t ; 



crocriur; :e* ! 



0 r >■ i r. 

,T~.au2rrec := arpty-reo » 
s ec.< ( „ I , reenu t ) i 
?u i ( . r )_; 

'.ar^ei". octree :- 2 r r pty t : a ~ ; 

s e = f. ( t =. = : . r e c nu n ) > 

pu : ( tar^e t ) ; 

t<? t~ap | r= cr.u"-J := \a'<,a''i 



procedure ae.etet.-p; 

c 2 p i n 
C X c a r ; 
i : r. e 5 ( H / j_ 

*ri:eln(' Dij-iTi: IA.-.C-iT ' , ; 

lines ( 2 ); 

getrus! 'ae . t . tc xt ' ) ; 
r a c c ru ? i ( l } ; 
i : not j u 1 1 t n e n o 2 * ; 
eno. ; 



procedure caseproc; 
v a r noucar : c a a r ; 



< c 



(b O 



cesi 

es i 



a 

t r r ■ u • 

r* i n 

non c a r 

Cab® " 0 



:rer.i-^i :c 



/ ' 
d 



• — b d. ? 

. i -3 r o 

Satu: 
Sira: 
b^cu: 
c ~ a u : 
s a c u 

3iCul 
S a L U : 
seen 

b 3 DU! 



a r. . i 
’ vn 
r ; 



fti.i 



a i r. 
' M t „ 



^ a r 



* * - - i 

r. * x. . 

' 3 t n e r 

iN C ;* :i 



e n a t 
.o o in e a ; 



n> 

/ /■ 



: = dec; 
ucar of 

aCCDUl 

acc ouf 
accour 
a c c c u : 



' C o r : i me a 
'Pi'ccac.r 
P c b b i c x e 
' j r. £ a o * n 



enn > 
noma r 

C c 5 r no 

/ / 

1 



' 7 ' 



: = pn > 
.:ccr o: 
pruai 
jricui 
p r i c u : 
prim:’ 



i 

I i 

i - * 



era; 

10 CclT 

s e no 
/■ * 
i 

/ , < 



: = it y ? e ; 
near c : 



d 

>na ; 
.cucar 
‘aba no 



tty p sour 




t t / pe c u : 


* ,, , «, / . 


t t .y p 8 C U i 


= x \ s I ; 


t typebu f 


= v x A j. t 


1 t y p e c u 


— J p ‘ 


1/ l y p " d j « 


' r ;r» r ' ^ ' • 


t type cut' 


' TT - * . 


t typecuf 


= xOrr: i 


t typsDUf 


^ / r v r 7 • 

— i O > 



n ' ' 



i — stall 
1 1 ? a r of 
d ' : t exi n 

b ta 1 1 
b : a : d 
eni ; 

a/ : cegin 

b ta t x 
s t d t ^ 
sni ; 

o' : re? in 

Stall 



> ~ .u * * 

; - ' i o b * 
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:= 'ACT I 
/» ,, ' 
• i’J J 



’ r * r» rt- 1 • r ri < 









s t a i ^ : = \ 0 

er.:; 



era ; 

: na ; 



;ro ceau re ^dicar:; 



A i 

a' r 



ex 

ei 

* r 1 1 e x a ( 

A ::trini 

*ritein\ 
#:uem( 
*• r i t e i n v 

" I r 1 r ( 
: 5 x n ( 
leia ( 
te.n ( 

trx r v 



e^i r 

.vi tr currentgt zo 
o p *? i r 
a ( a o c s ) ; 

~( ' 



' A ?. C - T \0 . 



# Lo cation: 



A i 

>: r 

a r 



x 0 C , Ax 

' , ces c ; ; 

f-iibi , 

✓ 

» P* * i-L * f 

. . > . 

t b a w k . j 

* 2 > o c r / ♦ 

, : r j a c t ) ; 
Proto uo: ' , pro to nun f 

? n o t o Coo re: ' f ono t o co ra , 



jescr^uon: 

wl ab i 

'Priority 
o A a s s n ^ 
'Source o: Ig t : 
' C 7 C Activates: 



xetaris : 
e :: i ; 



, re? , , 



;e 






, u 3 
c r ' 



* — * >* — * — 



t i 
- ^ — / * 



; u r a , 



■ w W u * # 



r> n a ^ j m 



u r e 3 D A c a r i ; 



no xicar : 
can rep tu: 
0.373b 5 our* 



cnar ; 

: string [iij ; 
: stria* Ui] ; 



C 3 r 



i n 

3 T! a S S DUf 

a^re ocu r ‘ 



wn 

An 

*n 
wr i 



tela 
te in 
tela 
tern 



r irirg 



dp; 



\ o / 1 y ce 
Po una b 



x/ a na <g * 

! t* t . 

* V„ W ^ A. L S 



for i := l to 3 ao 

if (currents. tiasli - 1 d J = c : : < ir.er. Ait: 

ce;ai n 

coicacar := lamrep; 
case noiicar o : 



x, G ‘ C 

s s e s s 



u r r e : rc t 



1 : ianrepbu: 

'd' : a a . t re n cut* 



j a y a cir 

'LiSIRCCE; 



7 v 



fl) (p 



C 1 »~j 'cl 



/ / 
0 

/ ^ / 

f 



* * 
z) 



a a r uZ u :* 
icTire pc 1 ;: 
ia7 repeat* 

nrreooij : 
laTirepci: 
i e 7 r e y e a:* 
iar re pc at 

en a ; 

ac i: ca r i - lands s } 
C 8 be aoiacar or 

JanaSS i -J : 
a aria s s ear 
.18 Tdbb OUT 
Id.TtaSS eui 
CflnaSbDU:’ 
ld rr d:aCUI 
aaTa;SCU: 
aarrdssrur' 
la.TdabOUI 



I ni * a a i> x C ^ a ^ 

r* rL r r . .1 jL- 

'a l j i i / 

1 J 'iMr 

’ : Ir o c c e rv ea 
’ 'jr.fcno a r 



' s ' 

C' 

/ / 



'7 ' 



.v rite v 
* r i t a i n ( ' 

*■ r 1 1 e i a ( ' zZ a: 
a np ; 
ena i 



■i 

e r u j 
DTGsurv ; 7 ,' 



Ia'.ajL- 

^ — J 1 w jL 

* Oi J * 8 8 x- i L £. ij 

' I L ^ J I H d X :L 

’ j n d r. c v 






. la u : epeu : : 

I w 1 / .1 I C ll , 1 



n f a 2 s t u . 



procedure iis?iiyt e t; 

k c. j ^ n 

a i l r. '"jrrdeut i o 
Dcain 

case proc » 
^aincari ; 



. / ' / / 

1 A. S t d (/ X L X 9 O f 



X O « . - > 



* r i t 3 \ 
eat 



a t u i *; rr - 9 



f \ 
v ^ - > 



i i s o I a ( i a p u ; ) ; 



ena i 



procedure lispiay; 
c s ? i a 

curren : = enptylreci 
:‘ i a i s a e a : = :’ a i s s ; 

r ♦ — 

u • 

:c = ai } 
ci ?ar; 
iiaesU} 

* ri oein ( 









([) u> 



a r : ; = v 

-.nesC' ; 

- / 

.« r i tSiU \ 

a r i : - i n v * 

** *■ - * *- - *. \ 

* 

a : 1 1 6 1 r. \ 

xi ; 

; c . d C t » 

read ( cr. ! ; 



W W» L. - x. 7) 









>-■ * » c » »- c*. * ' -j cr 

: : i . c " i : : o l 
n o :"tt :: 4 : ' 
r ^ ^ - *■- / ? 



/ / ^ / / / 
*•♦<** ^ 



■4. *. *»twU </ / V » - — . - - X.. — 

or 



, a i 't 

/ . / 



X , ~r^»^ r -» - '■* N • 

a ■— 1/ <* •*•■» W — ~ ± / 1 



' • ? . ** s - ^ r . *■ ' O ' 

' ^ ' ' V ' . n 

W f • • W w - A -x 



/ / ^ / 

*= » -* * r » 



, „ _ t - > . 

i.:.wS ^ / > 

t . > * . * 
i/i. x x e v ^ * S j o ^ -• l w A l / t 

s t. aceiir; 

:HC J 



*<Ll' li 3 



r'-S.f > 



e x ^ e 'e:.u-r:ori 
. t . * :' 1 a i s n 5 i or H u i : ; 

* .~v •" ■> r •*• -• r* '■o c - ■ ■ •- ■*■ " 

* . w ^ w x*. ^ v X _ x*. s*. 1. j ± ,f 



procedure put! nr lie; 



;sx'i! 



I a 

se 

pu 

Cr' 

se 

o X 

ou 



= idract . c * c r e < 



c 

n a 



Src v target, re cr.ux > ? 

c ( ur?9 i } ; 

r r., c c • c ~ i r e c i - currant p. c ; 
e<c( target , reenutr ) ; 
t ( tares t ' ; 

IT) ap [ re cnuPiJ ; 
e.< (d I , r sc nun ) ; 
t'.:); 

".^uerrec := 

7 , rscrurr 

r f - \ • 

C \ - ' > 

rrenCsi s~> 
rreriUT : = arwi^reci 



current*- > 
\ . 

/ > 



p c y r r 6 c i 






I b <b 






?£ i r. 

If ou; process : r 
repeal 
C 1 u a r I 

« r 11 ^ i u ( 1 j L D y ; 

lines ( o / ; 
fi r i ; p i n ( ' 
i i r. e b ( 2 ) ; 

f ' 

h r 1 1 a i n ^ 
lires(i); 



!a! l i , t 



. i - -j ^ l «*.»** u * * a S c 
four options -r~: 



l ’ 



* riiexr^ 

* r 1 1 1 1 1 i 
write! n ( ' 

* r i ; 9 i r, ( ' 



l :' (currenut . c tat = 

w r i t e i r. ( ' L 



t, a » i S v . - ... : 

Lis?iuj i r. : o ; : _ t * i ; 

C .1 5 r. ^ e y r ; r i' t . = 

a x v# a «» •• “ v a <* — a t/ 

/ , ' \ f 

i -> v ^ c 

a -J - t w ^ — * » V *- W • 



- r / » 

r r. - 






, _ .. t -i \ . 

i lu*b \ x > 



, n c :. 

✓ 

- -• n / / j 



1 e c ; ; 

2 a ( c r . ) ; 

r / , ' / / 

_ .*» n i ± •• j 

np^in 

it eoin(inpui) man r = ii.j; 
: l m sr.ea : = i rue > 
case c r. c f 

: pun nr 1 la; 



i 

X / 

d : c£ 2 i 



V - O V w w 



✓ , / 
/ / 



finisneu := raise ; 
li bplay i e i ; 
era; 

: D 821 H 

curran I : - i r a e ; 
c ci a n 5 e J 

if cuiu recess men 
era; 

: a e i ; 

: if ( car re n to t . s ia t = jr ( 

o a 2 1 n 

r C A c o u r. ; e r : = l ; 
curran; := irue; 
n e a r D A j 

:‘ mis r e i : - false; 



u U . i — . i i 



t . 5 U 



eiiS t s ;. u e r r o ; ; 



219 9 i : c r. - V 

r ^ i r> 

w « i-i 

f i n i s n e a 



tr.e: 

“ I a i s e J 



( z 



•r * t ) 



c. 3 d:; 

-Lir.es \ 6) i 
c c m 1 5 i 'pro - : 

* i n e s v * 5 ; 
bpace r > 
ere 

^er.aerror; 
r i n i s n 5: - cruel 



* a. ^ j t 



procedure cnecuc one , 

7 a r c 0 u r ; , r : i r 0 e - e r ; 



C C C ^ .A 

co uni := 

:or r := ~ 10 rorccrecK: ao 

i:‘ current* 1 -l-* [rj \> , 

’ :* count = / 1 n e n 
e^i n 
■uteri 
1 1 n e s ( '<? ) ? 

2 u c r y 0 : : ? : : 



, u e :. count := noun 



u. 



_ •- Kf 



^ c . 1 . 



ib c cr. 



5 U 



rue I 



Aia t e 1 *-a V 



u 1 e b i 1 

1 i n e s ( d ) ; 

i T oer 0: iters nave nut cecu earpiece. 
: e 0 e a c 



1 a r e cl 



. .1 - ^ w 



lines ( d ' » 
^ * 1 o e i .1 v 
i i n e a U ; ; 

w n te A n{ ' 

* r 1 t e l n ( 
«ri i2ir.v ' 

S: 



Tne cations arec , ; 



1 . C 0 n c 1 r.u e ft 0 * 1 1 n F ; 0 r 
d. Stay «cr.-:ir*5 on 

o. 'la £e or-a-c-Si co tr.e 



tercet j 1 



-i , > 

c a r e 



u / > 



* 1 n e s v 1 ) ; 



> 



? a e ( or.' ; 



11 cn m l 1 ♦ d. , c , l j 



■ p — n 
, i-*. — .1 



r p c* •» 



i eoir.v input 

C a Sc Oil 0 1 






/ ^ / 
1 

/ * 



ex 1 1 ( caccicicne , > 
c e ^ i n 

none ;= ; r 0 e ; 
exit! cnecrcn one ) ; 
end; 
c w u* x n 

cone : = true; 



c 



v r.i«c r > 

r ,ci ; ' cnej.c one ; 

= naj 
in 

ucar; 
i il.t 5 i : / i 

i : i i e ( 'c£io»^x.;ea 
lines <:); 
re i ^r:i Ld r ; 



» 



er.; 

eiie ne nue : ro r ; 
c i 2 a r ; 

until menuicop = true* 
em ? 
enc ; 



proceaure aait^tint'c? 

e*?i n 
clear? 

w r i t e 1 n ( l o t s ) ? 
lines (2); 

ee t f i le ( 'and te ti nf o . te.u ' ) ; 

lines (2) ? 

space Da r ? 

clear? 

lines (2) ? 

ee t f i 1 e ( 'aiitini'l .text ' } ? 
lines ( 2 ) ? 



procedure newtar-et? 

vs r ; 7 : : r> 7 a ~ c ~ : 



o 9 ^ i n 

re c nun := e? 

vnile tgt-’ap [reenunj O '21'Z'Z ZZ' io 



^ C C* ^ ri 

"POrpT * — ^ S p v- • ' 

; - wiiUi'i • - — a. u. 



1 * 



it* reenun = nuxtertgt - 
o e ■? i n 
ciear? 
i i n e s ( 1 1 ) ? 

* r i t e 1 n v ' 

1 1 r. e s ( 2 ) ? 
vri telr.( ' 



’ll.? JULL'yJ 



o r : a r t j conn n u = 



r r 



a j v* 



xinesiri i 
> pace C dr i 

core := t rue ; 

^ x i c ( n 9 ^ t d i ir* e t j » 



d ^ v - f r r ^ -T. j f 

C P \ «y A ] 1 



current! : = *J . H uer reti 
Zz r~e c , ret.v-r y ; 

U Cl i C “ U J t 

carver. - iS i : = t a r *;= t ~ . 1 6 1 f = c ; 
re: t :- 1 to u^rcervar 10 
eurreni*;t . T: j : = or.; 

e r ; ; 



? r oee:urz 

v d r i : i 

: e p. i n 

r. o ~ o c n e c .< : = 1 c ; 

ranuator/i ce^ 1 true; 

current : ^ :u.s=i 

Cu.prOCcSS • ■*• I : ^ S ^ i 

tluisnei : - fa^-; 

i o n e i = * ai Sc i 

*4 d i t • - I’ e i s e * 

c d . - i rue ; 

vU c c r ; 

1 r* :' ::st ; r. e n 

3 e ~ i u 

«r. ic*r, (*o ts ) i 

r f « N • 

S ^ ± / i 

i 1 e ( ' y re :~z . zex z ' , } 

p r d t, p t ; 

first : = fd.se; 



. ± - 1 



; i 



. / ' • 
p*c 5 v - ; i 

*r:tein ( ' ** for info:, 

prexpti 
5 n i ; 
repeat 
r ® a a ( c i ) ; 

' : o n = ? r r q r 

t = i r. 

2 cl a : 6 - 1 1 :. :' c ; 
return oar; 



Cl v* x ^ . i ? j;C 



icnt" uu a . r " ^ — 5 r 






n .* t y 

u Ti / i x ^ o i r. i r pi» v m 

:a r - ; ; 

i : lire ; r e .a - iC : : ' - a : a : s a ; i 

4 ^ 1 <• i } v u J .1 C ^ j 

K ^ i :i 

: c r r : - i i o r u ~ s e r v a r - o : u 



1 :" 4 - i l i .* 6 I* tCl 1 \ -1 Z t a r .3 6 l , i 
1: i: tJ - 0 :. ir.p. 

Lc^in 

case r c r 

l H ll y 
£ 2 l d l i 0 C > 

t *s 1 1 e s c ; 

c?i:ii 35 ; 

t b 1 ? r 1 i 
t*;is la ws » 
l iy pe ; 
c e e ■ 1 n 



■na naa tc ry 1 le ■ 



- * a x ^ £ y 



J 
I C 
lx 
x U 
i o 
i *x 
1 C 
lb 



£ a d S r> 9 * r. y 
re'na r.AS ; 

;Ti a p r e I y 

source ; 
a : 3 t 0 a u p ; 
pao t c^riu ; 

n r, f m - n - i ^ * 

^ x J- 3 C b ^ v e y 

tfeUccurcicy » 



enu ; ; ca se; 
e ;: u y 

: iai snea : = : sise ; 
era; ircr; 

ii : 1 2 <> 0 ; n 5 n cnec-ci on* 
else cone : - t rue i 
2 n a ; 1 a r. i 1 2 ; 
p r 0 c e s s j 

ii > 



procedure igt.r.enu; 



:e*>ia 

Cifidri 

wri tein( stars ) ; 
iines(c.;> 
w r 1 1 e i n v ' 
lines ( 1 )\ 

« r i t e 1 n v ' 
i 1 n e s ( 1 ) > 

*' n t e ~ n v 



« 0 r 1 n r oa in; 
T r.s c p 1 1 0 .. 2 are:" 



,aP;.'cl rile ) I 



Aaa a cartel ) 



7 r» 



* r i t s 1 r. v 

* r i icm v 

* r 1 1 e l n \ 

* r i t e 1 r* v 

* r i u e * n ( 

t r X n 



<v 1 



t : \ 



i i r* e b ; c : ; 
- i 



■w n a C ^ 0 d l a T c,' 5 l > i 
- i 3 P * c ;/ cl target ) j 

iiits: a ur^et survc 

x d d d o d d laFrdl / j 

ii s w t c. r s? w t s « u r r t .'ll 
*d i ^ r r. / > 



- - - ) > 



prccrd^re i^sicr. j c^> 
«a: j • integer; 

LcslIu 



J : = ^ » 



»ir. 2 s(~) ; 

* r i ; £ i n ( ' 

1 i n e b ( 2 ) ; 

:'or : : = c : o 

::' ;g:.p£^[:. 

o s s? i i 
* r : c a v 

•» • — T 

*J * w 

U J : 



i 1 * r * x — 



r.u,T-ca:ui :o 

s V ' , . .. ' 

\ S c c L C c 



t a e r 

*t~i/^)<apL~J 'J 



i f 

i r. a r. 



J : - c ; 

c. f 



- -i - > 

* r i c e i a ( ' 
x i i '. e s ( 1 ) > 
spacebar; 



j * ' i '-J 2 i r. i. j *. « 



■s=iir. ita:<ietric:; 
no airing :- ' 
no end r := ' ' 

I'irsi := irue>* 

7-::i cory i ten := raisei 
iisnuioop := :'a*sci 



/ / / 



’lenuca: := l 
repeat 

cur r nt : = raise ; 

t pj t T- 0 fi U j 

a el e c t ; 
r e c a ( c n ) > 

ii' cn in w.rcucar t n s n 
c£i?i n 



/ / / 
t ** * * 



/ . / / , / 



= , f , r , - , - 



' / / / 
f CL , C 






a 



x: roia v i r. put i a c n rcuii.*, 

' r r* 



Csb-: 

/ ' ' 



/ / / ^ / * ' 

t O » 

/''/// 



i x 1 1» i I f’ c l > 
Cwcr^c ; 
::spicy; 



• cr.ucnr y : 
r. r a J J n ] 

r a 1 ; 

aziit^Uli 

Ai5tcr*0C4» 



'1 



/ , / ^ ^ / 

' t 7v » 



L ( Lar7^L'*0 ly » 



■nc 



i i na i ( o i I 

*■’ 2 1 1 i _ c ^ L ft l il 0 ^ X . L c C C 

i i ne b (o / ; 

b ja'^^d F i 



e n: 



0 isc ncauerr or »* 
uC t n Tier.UxCC^ - crae; 
a; 



l 



ifciTlALlZi *) 
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segment proceaure initialize; 
var 

mencnr : mvaiue; 

;?ooacg : boolean; 

oroceaure initial o; 

oe^i n 
clear; 

writein (stars); 
lines 11 ) ; 

writeln(' If tne system nas not oeen initialized wnen tne program is'); 
writein ( 'startea , it will initialize automatically ana create tne target'; 
writein( 'riles on tne ussette. Tr.is proceaure allows you to re-imtiaii 2 
writeinv'tr.e system for a new operation or to restart target information'; 
wri tein ( 'opera ti ons from a cream start.'); 
lines (2 ) » 

writelni' Option d win aelete ail tne current files ana allow you to' 

* ri t el n ( 's t a r t out from tne op^inninsr. Tne files you lelete are not ';J 
wnte.n( 'recovsrdcie. He sure you want to aelete an of your flies cet ore 
writein! 'you select option d. Use option a to return to tne main';; 
writein( 'co^mani menu. Pressing tne return «cey win return you to tr.e'); 
writeia( 'initialize option menu.'); 
lines {d) ; 
returncar; 
ena ; 

1 1 
1 1 

proceaure initfile? 

var i, j : integer; 

o e g i n Unit file) 
restart := true; 
wnte(iot) ; 

J := i; 
wr i te ( lo t) ; 
ciose(target t purge) ; 

rewrite(target , '*5: targe t f i i e .a. a ta ' ) ; 
for i := 1 to numbertst ao 
Deem 

j := j + 1* 
if j = IP tnen 
Deeri n 

wri te( ao t ) ; 
j i; 
ena ; 

ta rge t" . tg t re c := emptyfrec; 
du t ( ta ree t ) ; 
ena ; 









cioseftamet.iocx); 

reset( target, ' *b : target i'iie.iata / » 

* ri te ( do t ) ; 

close ( 3T , puree ) ; 

rewrim(0T t '»5:Hueryfiie.data'>; 
write (do t K 

for i := 1 to nuTioert^t do 
oe^in 

J : = .1 - 1 ; 
if j = lb men 
oe^i n 

wri te ( do t ) ; 
j := 1* 
ena ; 

3T~.querrec := errp tyL rec ; 
p u t ( Q T ) » 
end ; 

cl o se ( C T , 1 o c* ) * 

reset ( 3T , Vb^ueryfile.aata'); 
write(ciot); 
and ; 



procedure reinitialize; 



Return to Main Cowman 'ienu 



Reinitialize S y s t c t ' > 



De<ein {reinit} 
firooacic := false; 
clear ; 

1 i n e s ( 4 ) ; 

•ritein^* THIS PROCEDURE v’lLL Di’LPTS ALL T. 

wntein(dots); 

lines ( 1 ) ; 

writsln(cnr(7)); 

wnteia(' Tne options are:'); 

lines (1 ) ; 

*rit eln v ' 1 . 

lines (l ) ; 

«nt?in( ' a . 

lines ( 1 ) ; 

wn t ein ( ' 3. 

lines (l ) ; 
select ; 
reptd t 
read (c.n ) • 

i: eoln (input) men 
cssin 

goDac-c ;= true; 
exit (reinitialize); 

S rid i 

♦' r* r> -» 
r o ^ i n 

case c n o: 



Inf or t, a tior. ' ' ; 



r. [ l . . o j 



’l ' : exi t ( rei ni i la 1 i ze ) ; 



' 2 ' 



ee ei 



‘X K 




'O XJ 



s ^'T)£n 



r*n 



v a r 
Ti £ r. ; 



la r 



Valu^j 



procedure i n:‘ o rr,e r 



c ° i 
Cl ‘ 

wr 
li 
a r 
1 1 
a r 
a r 
a r 
a r 
a r 
wr 
ii 
en 



l n 
a r f 
Lei 
eb ( 
tei 
es ( 
tel 

Z £ 1 
t p l 
tel 



n ( 
*) 
n ( 

V > 

r.l 

n ( 

n v 
n ( 



c t s ) ; 



n v 
M 
b Hi) 



t^l 
( 



Tr* is s e 



e c 1 1 o 


n p r 3 v i 


u = b l u : c 


r r a l 


10 a 0 0 ’ 




ho a :o 


J y e r a : e 


t~e 


V / D v J ^ ' 


V . 


3 e c \: r 1 


1 7 n e q u i 


r* _> -o ^ 


n L s ; • 


c . 


Fa r^e t 


C i e s s : ^ 


1 C 2 L 


ions'; : 


4-. 


Ti r^e t 


p r i o r 1 1 


: eb 


i ; 


c • 


I d r ' e t 


\ n « - v « l s u 


i:e.:r.es 


c . 


, re turn 


/ t 







i - 0. 



w JL «*. w 



oroceiure a s = r i r. s t ; 



Wil 3 ' 



. J i l.'o i?.T iC ' / i 



oetun 

clear; 

* r i s e i r. ( ' 
writsic (icis); 
1 1 a s s ( 1 1 ) ; 

* r i z e L n ( ' IT 
i i n e s ( o' ; 
spaces a r ; 

eca ; 



roceaure roroaii; :cr*ara; 
roceaure r‘ c rra r c on cns ; ror*ara; 



oroceaurs lor^ats ; 

r.egi n 
clear; 
i 1 Tt s s ( i ^ ; 
wri teir ( " 
w r i : e 1 n ( a o t s } ; 
i mes ( l ) ; 

'riteint' Tears 



oe raster I r.s t ru ~ i ic r.s , ; 



--or-ass Jseu ir :ee jispia’-'s' ; 



are i * c oasic corrals user m see target :r.:c:nc;ior. 






= o 



♦u x? 



a rite xr. v system 
« r 1 : e . 1 ( ' s p e c 1 : 1 



? first is a repiica or tie :urr-r. t target -an as 
.1 i v F rv : °-l (.-ire Support Joomnctio.i ' . A., or tr.e 



•rit-rr. v irt'orra tier, a tout a oarticnar target. 



1 *’* r « I ^ r* " 



c a ^ ^ 



‘ 6 ::te:n\ burve:. , ^:a; 

a r 1 1 2 . r. { * i i n s ^ r l a t e r . ' ) ; 



1 3 D i j y e i on me b " : 



^ • 



unesuj » 
* r i * - 



m v 

vruamt ' i i s t 



me bacon: ;,/na or dismay is z ne target msu;^. mis , ; 
in^ contains tne nos: nooru:.t items r'ror tr.e urret' i; 



M * i, 

mi; 



u i *1 



i — * r* 



eir. ('tr.e FiCC. Tr. is xisti 

- r» r^O g; a ^ r ■* 



nx 


a r 1 1 V 


o y t .1 e 


SU 


tin 


s 1 b d 


v a i i a o i 


e 


5 t 


t O a s 


cecioi 


1 1 



□ - 3 » i r*» 1 r - d ' ’ _ y j 

litter ent ror-s/z; 
barticuior ur?et ' 



. n v cr*cracte::s;ics 
1 ir.es ( 2 ' ; 

sp^carci i 

foratJ 
: n 1 f 



roce:u n e : ormat 1 ; 

R 



n<? gl 
"lear; 
x i n e s ( l ) 
* r i t e i rA 
x r i t e l ,i ( 
« r : te.iv 
a r 1 1 c i ' 
ft r i t 



, P r 

’ Dd 



Jre procedure i 
im a l : i : or ter 
rdreters: suus, 



mis system ano*s you io aisoiav 



' \ 



i r alien c : 



Ufx 



: n i 



m i fx V 



) 



2xr.( 
e i n v 
e i n ( 

p i n 



/ ' ^ 



?oi 



cidssmcdcion, su p co r 1 1 n* 
assignee, target type ana accuracy. rcr rXciT.oi®, yru 
i o rid in a iibt or au fort i :* ica i ionb targets assign 



i* o 1 1 c ^ l ; 

y > 

✓ % # 

J 

?a 



; c nave * *rur : i r 



:* o ~ t n c 



s*u n : i r < 



.v r 1 1 
*ri t 

A(x 1 v/ ri \ 

i i n e s ; 
e i r. ( 

= x 1 ( 



/ * * 
X 1 



a r 

'or 



o nicer, ail one: 
am Hi ccur. terr'i re targets assigrer tc artillery *'cr 
or ax l active i iAio t.a t a icr tr.e air 



i . e r y o r : i : = 

-cr. ' \ • 

v w x « y ♦ 



t n 

> 



* i 1 W 

writ 

Arit 

* r 1 1 
*’ r 1 1 



e i n v 
e 1 n ( 
el n ( 



y° 

’ r * 
1 U 



A t ni ri 1 ten tna t car ce aisplayei or pr in t ei is 
rest ot.ietir. fTAr.^UL). Tr.e systen cut one ticany <r 
ace or cxi transac ti ens :'cr tr. 
u to t> r i n t a rerratte 



vr: t P . 






mi; 
line 
spa r 
: o rr 
enc ; 



iii 



.j d c e {. s 

:a: b s ; List arm allots 

uitaoie tor trammi ssio 

uses t ne sunidr: format or iar f;C i s 

roiT. i ne 1 is i , targets cnan^e: 

/ t 



?A?m oL 



Ci . 



5 ( 1 ) 
e oar 
a too 



mt- 
rve ix x anoeb • 



a n: 



5 c to tne list 
m;po rta r * t ta rg 



■ge t 



; » 



. o ns ; 



procedure i’carams; I'ormrii 
procedure rnstdis; I'Ox^drd? 
rocecure Icuidis; forward; 
rooedur 0 i oroconenu; form::; 



procedure r or mat opt ions ; 



CO 






il) < D 



* / 



r e s? i n 
repeal 

: c mpienu ; 
select; 
r«ai^r.)i 

i: cn :: ne icier :.i = n 
o ° ~ i i 

it eon ( i i j in , t i e n rein i i 
case c u o : 

' , ' . ,~,C* 

1 . , w U * X * . J I 

: Ilibtlh i 

: mums; 

4 f i t r : ex i t v : c mrc j ti oi 
' 5 ' , ' o ' : ne me r :o r ; 

'v ' : cem 
1 1 ne s ( 

Tie tire e o o t i c r b a c o ; e * n .* i 
n ten (': o nets :or tic target cm. tie 
m em ( ' dli l e :i n . Jnocse one c:’ tiese tn 
nteira 'tc cm tine operation an reu: 

1 1 les ( ^ ) ; 
return car; 
enc 

enc 



r i t e i n ( ' 



:s / : 



: w* ; 

t c 1 f 



:/ — i'- 

^ 1 1 C 1 
1 !- 



r s c r 
ere v : 



L tic t c ; 

;y ^ c 1 1: 



/ i 



ene lenremri 
until nemocp ~ t tu® » 
e r 1 1 



oroceiure ronocr 



u ; 



c e ^ i n 
clear; 

*ritein(acts ) ; 
i i a e a ( 'd. } » 
w r 1 1 e i r. ( ' 
i i n e s ( 6 } : 
*riteln( 
wniemi ' 
rf r 1 t e 1 n ( ' 

« t i t e i r. ( ' 
i i n e s ( 'd ) 
ena ; 



) i 3 y G „ li oili 



a r 



o • 
t . 



T i r ? z t Cara y j 

Target Li s i in* " ; ; 

Target June tin u'A-iiiii. 
rat u r n , ; 



procedure Tcaraaaa; 
begin 

*ri tein ( 'Pnoto No: 

•fntein ( 'Pno to Coora: 



"'lap Ref 
Ac cu racy 



IRAN ^bVV-17 ' , ; 

c c n j i k y. i r ' ) i 



27 



wri tsin ( 'Rema rxs : 
lines ( 1 ) ; 

write in ( ' 

w r i t e 1 n 1 ' 

* r i t e i n ! ' DTG 

writein!' 

wri tela i ' lRlbbDZ 
writein! 'BDA: E o t r. 
1 i n 9 s ( 1 ) ♦ 
end ; 



irst tar.x sifiume m sector IV. A 1 1 a c x w / rocxeye'); 



c '] r v ii LL an Cl’ ' ) ; 

Firing NO/type Damage Damage'); 

Unit a o u n a s Reuortea Assessed';; 

— '); 

H F/A-18 E £-22 DESTROYED aHSTROYEL ' , 5 



tanxs confirmed oy AO. No AAA coverage on t?t.'); 



procedure Tcarcns; 

begin 

clear; 

wntein(iots) ; 

writein! : TARGET NO. A-/0E1E 

*ri teln i ' ' , ; 

wntein ( 'Location: 340 o 7 c 7 !o Ait; gz Type: l’Aine'); 

writein ( 'Descripti on: 2 T-bE TANKS In OPEN FI ELe ' ) ; 
writein ! 'Ci ass : A status : ACT I Vi ' ; ; 

wntein ! 'Priori tv ; I Te t Listv: las'); 

wri tein v 'SAassgr. : A IP'); 

1 i n e s ( l ) ; 

wr l t e in ! 'So urce of Tgt: AIR OBSERVER OV-lZ'); 
writein ! 'L'TG Activated: lElbOtfZ'); 

Tea r la li ; 
spacebar; 
eni ; 



procedure TiistiisJ 

begin 

clear; 

wntein! stars ) ; 



i i n e s ( 2 ) 
writein ! 
lines (1 ) 
v r i t e 1 n ( 
writein l 


J 

X 

i 

'TUT NO 

x 


CL 


TARGET LISTIN 
?Ri IOC AT ION 


g ; ; 

ALT 


S A AS G 


DESCRIPTION ' ; ; 

' \ . 














) i 


writein ( 


'ADCZEl* 


A 


li 


3 A boo b7? 


ye 


AIR 


2 T -62 TANKS IN UPKN ' ' i 


writein! 


'.41)8024* 


A 


I 


34bE43bb 


loe 


N G f ’ 


FORT If I EL BUNKER COYPLH 


writein ( 


'A DCG33* 


B 


II 


34bbbbb4 


4b 


ART! 


FLT Of l-laP AT SUNS m 


wri t em ( 


'AE0054 


£ 


IV 


34PObocb 


ie 


NGr 


BEACH FUnTIFi CATIONS ') • 


writein! 


' ADZ'0b5 J,! 




17 


344bo?7b 


50 


NONE 


SC.loOL BUILDINGS'); 


writein ( 


'NAtfJdll 


C 


III 


432E5bbb 


V 


NGF 


BEACH FORTIFICATIONS '/ j 


wntein! 


'AD0O37* 


A 


I 


3477b 54b 


1EE 


Ain 


PLT ZSU-E3-n IN TREKS ' i 


writein ! 


' A DUCP7 V 


E 


IV 


33bo7obb 


14b 


NONE 


RA 11/ SUPPLY DEPOT';; 


writein! 


'AEeiZcb 


a 


III 


3444=9*!'/ 


EZ 


ART I 


PLT DUG IN TRENCH LI NE ' > 


writein! 'ACfc)Ocb v 
1 i n e s ( 2 ) ; 


A 


1 


34EEbb9D 


76? 


AIR 


IE 7 E K I C I n S ALONG ROAD 



c 



*riteln(' NOT t : w indicates target iii t ' j ; 
lines( 1 ) ; 

SDaf'SOar; 
ena ; 



pro ced u 


re 


TDuiaisi ; 


ce«? 1 n 
lea r ; 
ines U ) > 


ri t ein ( ' 


5. 


CANCEL Ll'J TARGETS ' ) i 


r 1 t e 1 n ( ' 




AD£'t6b. A Httbo , AH'S tid'd, NA't'dtl ' ) J 


rit eia (, ' 




APfe’t'4:^, aDcC47, a oe 1 ^ 0 ';; 


inss (l ) > 


r i t e in ( ' 


4. 


RF ACT I VATiw TARGETS'); 


- r i teln ( ' 




ad/^ 77, AU^i^id';; 


ines ( 1 ) ; 


rri te in ( ' 


w . 


CLASS If ICAT ION /PHI'Jr.I I": C H A N G a ' / ; 


'r it eia ( ' 




ADcd53 A II'); 


m tela ( ' 




ALCC34 C IV'); 


[f r 1 1 eia ( ' 




AtiMTv D in'); 


<r iteln ( ' 




A.Dfc'l i6 7 K 17'/} 


/rueia ( ' 




ADK121 h I')? 


/riteln ( ' 




ADOSiiJl A il'); 


L i n e s ( l ) ; 


/riteln (, ' 




CLASS 11 ICATICN 


lines ( d ) ; 
>paceoar; 
ena ; 



procedure T buiais ; 

cs?ia 

clear; 



vri teln ( ' 
lines (l ) ; 




TARGET 


S'JL-STIN ' ) ; 






rfntein I ' 


CLASS If 1C ATI UN ' ) ; 








lines (l ) ; 
-riteln l ' 


DLS 


: iJdio38Z';; 








•/nt5ia( ' 


F H 0 M 


: CFL ( C T F 3 <1 . 1 


. i ) ' ) ; 






w r i t e 1 n ( ' 
lines (l ) * 


TO 


: LISTRirUriOV 


); 






vri t ein ( ' 


SOiJ 


: TAHJjUL NU^IiiSfl. 


\ 

A? 

i — i 






lines (l ) ; 
vri teln ( ' 


1 . 


NLV TARGETS '/» 








v r i t e l a ( ' 




ADC 134 34335344 


FORTIFICATIONS 


A 


i'); 


vri teln ( ' 




ADC! 13 5 345C!5577 


d T-S4 TANKS 


A 


i'); 


w r i t e 1 n { ' 




AD 013b c4oo7oeO 


rONKER COMPLEX 


r 


in ' 


lines (1 ) ; 
w r i t e 1 n { ' 


d , 


EDA ') ; 








vrit eia ^ ' 




AD0G7b la^a^ei by air stride' 


> 1 




w r i t e i n ( ' 




ADC’ Lb 3 Eestroyea 


'); 







ty 



i -? 



Ai-i'li b 



o.y artillery /; 



w r i t e l n ( ' 
lines ( 1 ) ; 
s pac e oa r ; 
? d u 1 1 i s i ; 
end ; 



Partially damaged 



Target Listing I nfo rna 1 1 o n ' / ; 



procedure tgtinfo; 

ce?in 
clear; 
w r i t e l n ( ' 
write! n (dots ) * 
l i n e s ( 1 ) ; 

ge t f i 1 e ( ' u u e ry i n:' c . t e x t ' ) ; 

1 ines( l ) ; 
space oar ; 
end ; 

procedure versicni; for«ara; 

proceaure versaid; 

begin 

*ritelav' CPI C DNS 3 Is : Datanedia slite Libfe t ' / »' 

wntein(' LANJUAUs: ?asc = x'); 

write ini' I v ?L?- v sM’ AT I ON : : JC5L) Pascal 'version 1. 



w r i t e l a ( 
i r 1 1 e i n ( ' 

1 i n e s ( 1 ) ; 
spacebar ; 

end ; 



D3SI3N: LtCoi 
PROGRAMING: LtCoi H 



J. Coniter, US 
: o u 1 1 e r , US 



- r 

* * ^ 
. lu 



I « 

/ ; 

\ . 

» 



proceaure version; 



oeei n 
clear; 

wri teln (acts); 
w r i t e 1 n ( ' 
w r i t e i n ( ' 
w r i t e 1 n ( ' 
lines (l ) ; 



Microcomputer System for Target 
Version 



Information (: loT I 



/ 1 1 



w r i t e 1 n ( ' A 
w r i t e 1 n ( ' 

* r i t eln ( ' 
w r i t e l n ( ' 
lines (l ) ; 
w r i t e l n ( ' 
wr i t eln ( ' 
w r i t e l n ( ' 
*ritein ( ' 

*ri t ein ( 'SO'JRCS 

wri t pin ( 'CrJsCT 



prototype microcomputer lata case operation system for tne 5 
target i nforma ticn section of tne v arin<= Cores fire sun do r 



’get 

coordination center. It is tne result or a 
submitted at tne Naval Postgraduate Scnooi 



masters tr.es is 



\ • 
} 1 



LGCAr IC.N 



DATs : 
COMPUTER : 
COM PUT is?. : 



Department of Computer Sci; 
Naval Postgraduate Scnooi' 
v onterey, California'/; 
l 3 June lbcl' ) ; 

Altos ACS PC '£6-1 ' ) ; 

Aitos ACS fadee-i'i; 






e r s a 1 1 ; 
ers lonl ; 
ni ; 



roceaure versioni; 
.e* 1 n 



lear; 






ines (4 ) > 
<r it ein ( ' 


S/Sten supports upper ana ^o* 


e r ca 5 e. C n a r a ' t e r 


/ r i tein { ' 
.ines (l ) ; 


is < ruDou[^> .-cey. In^ut te 


rminator is < return 


;ri tein ( ' 


i 0 r. INFORMATION. ) ; 




. i n e s ( 1 ) ; 
«ri tein ( ' 


rrotessor Lyle A. Cox, Jr.')? 




< r 1 1 e in ( ' 


N aval Postgraduate 


Scnooi ' / ; 


#ri t°in \ ' 


' <l onter°y , California =>3^4^ / ; 


« r i t e 1 n I ' 
Lines ( 1 ) ; 






*rit°ln ( ' 


LtCci J or.aid J. Coulter, 


JS-^C ' ; : 


*ritein I ' 


Development Center' 


) ; 


ir item ( ' 


mcodc ' ) ; 




t r i t e 1 n V ' 


Cuantico, Virginia 


wi ^ ' i ; 


*ri tein \ ' 
L i r. e s ( o ) ; 


F H 0 N a ' ) J 




aoaceoar ; 
am ; 







procedure syscpmenu; 



Deein 

clear; 

vritein(aots); 

I i n e s ( 1 ) ; 
w r 1 1 e l n ( ' 

1 ines ( 1 ) 5 
writeln(' Tne 

I I n e s ( 1 ) ; 
w r i t e 1 n ( ' 

• ri tel n( ' 
v r 1 1 e 1 a ( ' 
w r i t e 1 r. i ' 

* r i t e 1 n ( ' 
i l a e s ( id ) ; 

end ; 



System Operation ' ) ; 
options are : ' ; 5 

l. Instructions for tn° User'); 
d. Fermat a Used in Displays'); 

3. OttainiP .2 Information acout T=r P ets 
System recnnicai information'/; 
b . '.return) ; 



) ; 



procedure systemop; 

begin 

repeat 

sy sopmenu ; 



c#i 



r e a a i n ; 



select ; 




real ( cn } ; 




if c n in 


ren^nar men 


oegi n 




if e o i n 


(input ) x ne 


case c n 


or 



1 

'V 



6 

'4 

V 

’o ' 



* r i t e 1 n ( 
wntein ( 
v* ri tern I 
*ritein { 
vn tela ( 



Fi v< 



usennsii 

formats; 

tetiaiol 

version; 

R','r' : exi t ( systemop, ; 
menus rro r ; 
cea-m 

lines (1 ) ; 

options concerning system 



menu 



Select t n e item 



operation are 
you * ant from 



provnei in'); 
tnese options ' 



in tne aoov 

and type tnat numoer on tne xeycoan. If you no net oesire ar.y 



); 



) » 



information on system operations, 
to tne previous menu'); 

lines ( l ) ; 
return oar ; 
e m 

ena 

eni 

else menuerror? 
until mer.uioon = true; 



men use ootion n to isturn'); 



ena ; 



proceaure security; 



Security Guiaennes ); 



negin 
clear; 
w r 1 1 e i n ( ' 
writem(aots); 
lines ( 10 ) ; 

writem( ' ro t & ) ; 

lines ( 7 ) ; 
spacecer; 
ena ; 






proceaure tgtciass; 



oegin 
clear; 
l ines ( 1 ) ; 

ee t f i 1 e ( 'class. text'); 
1 1 n e s ( 1 ) ; 
space Da r ; 
ena ; 



' 

;; 






procedure t^tpri > 



begin 

clear; 

l ines ( 1 ) » 

ge tf i le ( 'pri on ty. text ' ) ; 
lines ( 2) ; 
spacecar; 
end ; 



procedure anaii; torwara; 
procedure anaiii; forward; 
procedure anai2; forward? 
procedure a na 1 e ; forward; 
procedure anaip; torward; 

procedure tgtanai; 

begin 
ciea r ; 
linesd); 

wntein(' Target Analysis Guidelines'); 

wr i tein ( do t s ) ; 
lines ( 1 ) ; 

rueint ' Tae following format ensures a logical and orderly exam nan on ' ) ; 
ritelnl'of all factors to determine tne cest met.ood of attach of a target.' 
ines ( 1 ) ; 

ntein ( 'Si tuati on of opposing forces:'); 
ri tein ( ' ' ) ; 

r it eln ( 'Enemy si tuat i on ... include information teat will aid target analysis 
ines ( 1 ) ; 

riteln ( 'Friendly s i tua tion . . . inf orma ti on mat will aid attach of tae target 
ines (1 ) ; 

n t eln ( 'Target cnaracteristics: ')> 

riteln ( ' ' ) ; 

rit eln ( 'Ta rse t description. ... type( personnel , materiel, terrain), number'); 
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e i?i 
Ci 

r i 1 

Til 
Til 
Ire 
ri t 
m 
ri t 
r it 
rit 
r 1 1 



ex r ) 
e 1 n ( 
ein ( 
ein ( 
s(l) 
ein ( 
ein ( 
^in ( 
ein ( 
eir ( 
eir. ( 



Tn is nrocenure or ms me ronatis 



to 

:’o 



r ^ s | i 



FSC 
GT NO 



AL£t- 

' a : 1 1 
' \l£*Zc v 
' i\Lc 21 1 : - 



line 0 r 1 n t e r 
ersonnei . 



*• (-» p 

^ n » 



i^.i i r c a 1 1 3 i\ 



remora purpos- 
cesic lorict . 

-x— - 0 - x 5 j 



■CL C< 

s a; 
0 r 



ci 

^ ♦ n 



- 'T ^ r n ^ - 

,'^rl pr- 
ib xx : ' 



17 



c^rc 7 csc 

t±c<z?z*z> 

Ox OOO? t c 



3 c 
n 

X L. t 

f 6 



, _ u 

A?, i i 
'1 v n 






. . i J. ^ * i 

<» c c or 

2 * T 



'ri 



_ r 



' J r .i: 



1^ 0 



■> •/> 



o 




nrocenure rri . 1 t 71 ; 



1 ear ; 
xir.es ' - ) * 

*rite! ' Printing tr.e 

:or t := 1 to IP to 



Target List. 



L!ei! 

a e 1 a y i 



( 



\ , 

; 1 



1 i r. e s ' 5 ) ; 
«*ritei n( 
lines' 1 ) ; 



t i 0 n Ccnniete 



J. c o 



tr* MJ 



s pci ce :s . 



orocerure ? r i n t - 



k’l r : 

r 1 » i r j 
x i n e s ( 4 
w r 1 1 e ( ' 

: o r i : - 



: r : i r. e L : s c or* 1 r 5 -e 1 Q . . . 



.c z o 



r ^ 1 ^ 



* r i i s ( a o i ) i 
er* i 

i i r. e s ' 5 ' ; 

* r i 1 2 1 n \ ' 
lines ( 1 ; ; 
spacebar; 
a ni; 



■ G H r x e t ; 



n ^ o c ^ 1 u w ° T 



pn a i a m ; 



d e ^ i a 
near; 
-ires ( 4 ) ; 
« r 1 



4 - O 

. £ 1 0 



t a ( ' Priming Ail 

♦or r • — 1 t ^ 

c e c * 1 n 
relay ! 

* r i t s ( a 0 t ) ; 
eca ; 

lines ( c ) ; 



".CC U - 7 



e i s 



* r i 1 2 1 m 
1 1 a e 5 ( 1 ) » 
spareua:; 
1 n 1 ; 



sanction, l 0 t 3 - 



procedure Crimean; 
var tnur : s tn m [ a j ; 



= a I a 2 i 



ce<n n 
repeal 
^eiou: 
ciea r ; 

1 1 a e s ( 2 ; 

« r i 1 e 1 r. I ' 

prep: ; 
rearm { t:ir ) ; 
i: (inur 



r ii.i 1 A ?. e- , 






- an 



vim ra = a 1 - 



5 . X 



14 ? 







*■ - r> * 
r a 




"TOC 




r : : = 1 tc u' no 
1 r. 



- 2 1 * / > 
v r i : e ( c o : ) ; 




r. iprintm.i 
oea t, 

j r i n t n e n n i 
rea o ( cr. } ; 

ir : r. in ~er. unur tr.en 



ceicm 



ecir:{ input) tner. 





bnec 1 ai i r.: o ; 

, r : e x l c ( p 
Tienuerrcr; 



:iai 









e. 5 r menu error; 
iii -’•enuioop = 



cu * • ^ o 

w >-*. J> W 



sid u 5 ; 



it c 



E.-'l 
Ci 
i : 

* r 
: o 

r» a 



:ir > 

_ t , \ . 

T* r 5 ' “ / » 

i le v ' rrc-ssi:.^ 
~ i 1 lo 1*. io 
~; in 

- e i a y ; 
w r l c a ( : o : i ; 



t ; b 



en 
1 i 

a r 

li 



neb ( s ) ; 
i 1 2 1 n ( ' 
n e s { ) i 
z urn car ; 



- ii . 



- -l u r. _ 1 



an:> 



procedure c r a s e i r. c ; 



d 5 e i a 

lines ( o ) ; 

.v r i i e i n ( 

*r imin ( '* ill i-mmc./ me iir-^ei in:’cr~e:im 
- v r s ; e 7 .* is i ? m :* e ; 



e j roc enure ^ i. i e r e s e - ■ ' e r / 



* r 1 1 e i p. ( ' z: 

«rUeln ( 'tr.° cl-.ssi:*- = i ;n:'c n a t:-.;, 



- c 



- ^ . r c 



1 i r. e a ( 3 ) ; 

«msira ' Tne mm si: :ci:on p'o-eiure c-s; t. 

*ruelr. ( ':°ciass-. ties tne ois.tett- cr.i sr.C'..ic or..y cr 
*ri:enr.('c: a:, opera; icn -.r. 1 ire uta ii :.o 
iiriss(l) i 
enc ,* 



i \ - s. i * 



j . > u - . * 



nroceaure erase; 



irasir.? me _ a r e t .- i 



ins o otic 



p 2 =$ i n 
repeal 
clear ; 

1 1 c e s ( 1 ) ; 

« r i t e 1 r. \ ' 

*nieia(aois)> 
i i r. s s ( 1 } ; 

* r i i e i n ( ' 

1 1 c e s ( 1 ) ; 
w r i t e i n ( ' 
a r i i e i n ( 

» r i c e i .i ( ' 
iires(l); 
select; 
reacfcr.); 

i: cn ir. [ j. , 1 , 

reel n 

eoln(input) tr.cn resign; 
case cn o 



/ \ , 
/ f 



I n f o rrr.a tier.', ; 
-rase *' i i e ; j 
.return) ; 



^ / / / ^ 



j me :. 



led 



M ►'5 



A 1 
I 1 



i : 



1 t e i n v 

n e ^ (o' i 

i : = * n ( 

r: 2 s (<;} ; 

• , / ✓ 
1 1 G 1 r v 



*ntein ^ 



• r' zz i *" 

"I 2 dr ; 
i:dSfc.r.:'oi 
s?ac?:= r ; 

r U -1 r 

r. e s, i n 

- ir.es (o ; • 

* n te v -r a b m 

: i.S'jaecr: : = iruc; 
i ri ti a 1 1 ze ; 



'iear, 



* — \ . 
iSiCj, 



i* i s 



r.dit O'. 



, - ~ ^ r i n 



» ■* <i C «< a > 

- -y r - : 



rciur: 



ra i 



restart s/slci'; ; 



' e.\j . 

~ o r r. a r : 



iinesU / ; 
b;ac®oar ! 

^etout := true; 
exit (erase); 



/ -s. / / / 



;:ci t v erase , ; 



e n cl 

e - s e ^enuerrcri 
uHti: meru^cop = true; 
. i i 



;rocd: 



c o p v r z i n : o ; 



i i a e b \c ) 
v* r i t e i n ( ' 
i t e i r ( ' 
re 3(1); 
A/rnem( 
v r i t - ^ a ( ' 

i ineb ( 1 ) ; 

w r - 1 e i n v 

* r i t ~ i n ( ' 
i i .is s ( 1 ) ; 
writ e . r ( 

w r i t e _ r. ( ' 

* r i t e i r ( 

« r 1 1 e i n ( ' 
w r 1 1 e 1 n ( ' 
i r i t e l r. ( ' 
lines ('d ) ; 

« r i t e i c ( ' 
p r 3 n p - ; 



i w u t u**c c ^ r r c r* 



1 



. 1 bZ 



■ o r c - ~ n ! 

■*. "2 .a. U b a. ^ >_ / J 



.■'x-Cc t r w t d c £ “ u d ui sue t tc ir. iisu 
( i s : t si:e>';; 



r r d S 3 t tc iTo r.i\ £ c f . * T. 9 S ./ 3 t 8 * 

eery tne target 1:.: 0 rma tier, iroi 



p Y' ■? _ \ 



Vnen I'JKCTiON CU V ?LPTU dope are, ao t 
P.excvs tne cac£-up aiseette r'rcr, 
;; P.ertove tne tareet iibuette : ror 
v Place tne system uisuette tacu 1 

* r.dce trie target ri sue tie racu : 

* Prebb tne F.£T : J?.\ £ey')» 



n c : j 

1 r 1 y 

’ i j a 



, v la;iwt, 
t C 111 v ! 

- 10 *ir: ft 



/■ \ . 

y > 



. w r. , ? 

ve =U; 



; ?.ZSS H 2 TuR‘; TO 



. v/ r * ^ a ^ r 1 . 



- / f 



1: z 



% til 



en i 



proc-iure 


coy/Cri 






v=r ccpyui 


r : b t ri u* [- 


j j 




c e £ i r. 








clear; 
i l r. e s ( 1 ) 


» 






*rnei.i( 




C 0 : / 


lata .-as 


»ri tei.c ( 


0 0 l b / i 






i l n e s ( 6 ) 
» r i t e i r. ( ' 


» 

Inis oro^e 


0 ure 


aiiO.S 70 


w r i t e i r. ( ' 


tn= l*T 82 l 


J. i brC 


e 1 1 e . It 


*r 1 1 ein { ' 


listen es 


1 n t r. 


e 11 sx or 


* r i r. s i a v ' 


oa^-c-up ii 


S a£ 1 1 


e . 1 2* ./ Gu 


» r i t e i n. ( ' 


1 a i a c a b e , 


1 nan 


p r e b b in 


wruciai ' 


previous rn 


em . 


me ure: 


* r i t e 1 a v ' 


f 0 1 1 0 a e 1 r 


xarti 


y • / • 


i i n e s ( 3 ) 
.mem ( 


i 

7 y p 9 


Ctrf 


b ii 0. 0 r 3 s 


pro Tip t ; 
r e a a i n ( ~ 
ii 'copy 


0 py ii r ) » 

dir = vvrf 


) or 


' J 0 P 7 U 1 ~ 


ret’i r. 








~ lea r ; 
c o p y i t 
re pea t 


ia:oi 






real 


(co); 






until 


60 1 r. ( 1 npu 1 / } 






near; 
l i n e s ( 


0 y i 






*n te ( 


' ',QV 


i uG * 


a x A Ir.Gl. 


t'cr t 
o e ? i n 


: = 1 to It' a 


0 




* n t 


e ( 1 0 1 ) > 






ceia 


/ 5 






eai ; 








i i ae s ( 
intei 


3); 

n ( ' — r 


J i\ C I I G ri C 3 t v i P i i 


i l a e s ( 


I ) ; 






return 


car; 







~ 3 r* c. i 



r -jj i r f : s you i c s * i i c r 2 n e / > 

ivc c dr. i *j s w a ore-: o rr= t t tc \ 

i c no z i r s . r c ic ^ c u .» ir. - • 

b 7 A jl r2 :i y to r - l U ? 1 tj o .0 ~ / ♦ 



.1.* oe- 



else exi i ( copy Dc ) ; 
sr.i ; 



proceiure utiimec.u; 



l i : 




* r o c -r i 



Ui ” * - - vj ) 



w C r. - i: 

^ ^ ^ r ' 



~ nr : curt £ o p 1 1 j a ~ r : 
Ue;:( 'ani lar^e: i a: .;xa : ic n i .. 



i * t w i 1 ^ W J 



>=C - a. 



^ » A <• -*■ b b t »»*.>,. i t ,' ± ± j *• Z » » ^ . v*. JL s 



#rue*f^ oy a different r rcce 



5 *a ~ b 



r : i e 1 n v c r ^ n •( i o ♦ r 



rs * r o f 



ca: e scries o: 



- ii r *a.y b :: o .v s a p.u. r rri 
l a - D t ^ x z z i ^ - 



x i ns 5(i)> 

writem *, ' Option b erases ail tr.e irt'orr aticr. iron toe ■ais.-crtt 
*ritciu( none at toe enc. 01 an c^c ratio., to isciassiiy tr.e ii 2 a.ec 
*nt2in( 'Toe .as ; o^ticr. returns you to toe r r ato conrict: icon, 'i ; 
xineb (i ) ; 
ena ; 



procedure utninfc? 



152 m 

cie 

1 i r 



* r 
« v 

* r 



1 1 
i t 
1 t 
it 
it 
it 



_ 1 1 

e^rA 
en( 
91a l 

eln ( 
e in ( 
e i n ( 
e i n ( 
eia( 
iin 
ut i 



a r 
es 



( 2 ); 

Inis see tier, provia.es vs 
r.e TIC. Toe :irst option si. 
or toe s/steTi users. Toe se 1 



ous 
* s y 



* r* *> 



:.eb : 



:t aibiet 



5 a CaCiUp t'lic. In- t n I 7 0. 



to 

cion 



i.iTJL 



) iron cal toe oats o 

, — : * 1 ^ 

ot'ornation a no priot it in 



tT u * 

, o • 



: ue 



nous 
ou t 
eri.ii 
d b d 

c on 

d n 5 c 

you 

oper 



e^esyi 
o :nat 

t s ;/ 0 u 

conn i 
st ru^ t 
/* r ** r i c. 



~ 6 u U' 

f- d ; r. c 

to c c h ; 

lb d d C C r 

s b. cur. 
since 



:CUr 
>d b b 
r ~ 

t C 
*£ t 



e s for > 



o n b ' ) 



r f i e s s « 



e : o rn 



e 

runctio 
.dildtl ' 
xis; I A 3 

t a y i y i » 

; » 



es 

nr 



(i)i 

o ; 



n> 



n id 



5 pa ce na r ; 
eni ; 



d s tf 1 n tatiiiiy; 

TienuauTi * ~ ^ i * ^ * o t 

clear; 

5?e tiller ' o 1 1 x p . c e x c ' / ; 
spacecar i 
repcd t 

utiimenuj 

r c a a ( c n ' ; 

l c c in t e n - r.u n t u e r. 

o *? i ."i. 

~ T- ' ^ “V I*"./ - 1 ' ~ ^ *“ 

X * lu yui( / v »* 



case c 

'i' 



' ; ' 
' ^ ' 



/ / 

D 






a r. a .* x e r < ; 

C C p’/ - x » 

la r ; 
u c i :* 1 1 ^ l J 
5 i- c L 5 » 



C U U La v t 1* C .i 



s , «/ j u v • - 

Z '. 4 . i, \ U V - i * i ) 



C .1 X > 

' , . : u : i x i n : 3 f 

/ ^ ^ / f * ^ / 

W | X. f * • wXa.^^xL. 

en a 
e no. 

e l s e menuerror; 
until xeruioop - true; 
e n i ; 



» 
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_ X ^ - 



iTCCr' 



i r ? ^ l b 



a r a ’ i v j 






S " 



t a :rr I 



-7 :ei' 






t 






r» 



o 






i ; 



se.ec: 



r. c c i o n 



r 




selects a target 
; :; - scree :: i n t r. a 








an : 






, ^.i. w . 




* - a , c 3 



T r. e s a rations a;lo 
o a s a :' i l = , z. i ? o i a v it 
ir. for- a tier, cr n is carl 




ions 



* i 1 1 re 



t 



c 



p r ^ v 






; o 



i 




r f ~ r. y 



. ^3 



CO T) 



0 T 0 , 









II- 



> ^ l . * > r j 



Inis ^rocer.jre amms 



i i * i i i j re 






' i : f n r > P .1 



for e a c n t a :• L e t . :o,- c i ; e ’ s • 
^prcun - tr ini’ cm r a t . c r . . 7 r. e s - 



to ce.s'raj: - : 

^ ^ qt ’ 

e n ; z t * r / a o i y o ; 



- tr - i .* : o : ~ 3 l . 



t 



Is r i r rt^r 
Sri: location 
Description 
r r 1 n m t ,y 
Class! r’icatic: 
status 
Target tyns 



jtr.° r iters iUce -nap re:* ~rer.ee c: reran cs c i :. r~ s.ii 
left Dian.-c cy merely pre^ me ?. 773 V< <ey. 



: # j:m 



7 r.e f i r i r £ unit is t ne a e ^ i z r a t 1 c n o : t n e ^ 
unit wmen iniertaries me ettawi or tr.c ter.-, et. 7 
not exceez o letters or cnaracters. An eur p . e c : 
*ouia ce, Air... A .mm Artillery. 



u npo r: *r./ err o 
7 r.e input "ist 
i.n t 



- or ~r 



,nr.?r r. n e a 



me return <e/. 



- 



inter me nu.icer of rou^s toms :r ormurc- meu o me 
target ana indicate me type or camcer c:‘ me erme:. ;e. Hr: 
tne input tc 17 m a ranter 2. T me a mam 0 
me numer ana tyoe if neeaea. 7 7 me inf 



W ^ i . 



^ ^ a r a 
r : i y r 



* 1 f 



0 r e s s m ■ 



*./ 



artillery ... 35 / fit F 2 , 



exanyie of input * *±1 

•* a ’ . . . y r i ! . U - 



•jv 172 . : 2 x: 



7 r. e 1 e f. *?■ t r of tr.s i n j 1 1 ex'seds si :c : - : a . 



please reer.ter me urine unit in 
cr less arm press r.r.e Rm 7 jRiv ie.y . 



.ureccers 



:::::::: DA. diu-i.-l Li. . 7777 
cations are: 



v a ra *?e 1 
i=stroyer 

T f ^ ^ r> ^ i r> 0 ^ 

n a r a 3 b e a 
i\eu t r ^ 1 1 z ea 
In :n i r. a tea 
'J n c d b e r v e a 









o * r. 









ex 



ter. 



te rs 



- c ^ — 









c : 





c 2 4 ^ w ' 






^ o u ■ : r 



c 







'-,o: ; : 



i . 



, 2 ; r r ^ 




: 3 r 



rns ; i •: 






! 0 l 




; vj: 



l = rs 



J. Z c O U J 



re> 





case 






o. ^ ^ r i i 






u ; 



Hr^e; ^ r 



i J L •? 



c. n i c : r. s : s : : n * y of r. u ^ c e r s . 

six r.U”:?: c o era i r;s t = s-ca 
iivic or.e by a lain? zeros ;o 




■ i:t . . 




e carpet aascripiio 
& coca nuncsrs 




3 



1 1 o r. e ,c 



:r. erecter: 
sure io i: 
d ZS 7 



ire & an 
-* r ,e i ne 

n 



^ G. g 1 



cnar 
a a a n ' 
ieicL 



ibSi 



*■ -• r> ~ ' — • f r r* 

n i v < * ^ r. » a - * * : i la.* w j 

T n e OjUc r. s -re: 



i- r A A ~ ^ <1 1 r r. w r. 1 1 
. e options ere: 



in 

7 7 



j . :-. v : 






ions dr: 









0 i A C t 1 r =-e t 

1 n s t a i i a t 1 o n 
Counter :dt ter y 
Observation r'os t 
Terrain 



■/ e a i c l e s 

J c r t i : icatiorts 

■Tsociianeots 



Tne target type 
ir.:‘orT,e ti on «iil ce 

type toeetr.er. I:' tne target '■'anno-t . 
categories, use mscciianeous (optic: 



is ae t ermine a 
n s so. to 5 r o u p 



i r oo n 
ur^cts 



target 

c :* tne s 
iaaaiiiei 



Z z S 0 

e ^ s 
into 



T-ne aitituie 
four iigits front 
yubt o® er. terei in re- 
press tne return .* e y 



is er. terse ir. 

t C i i t C ^ 3 V C? . 



* C f 9 7 a 



Pled s£ reen ter 
SA.TSaI :::::: 



n- 

ate 



c o : s i 5 i s ; : 

i tut • x n c 

i a not .< u c 



a i t - t use 

■. i L >> T *i 



c 
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7 r e t a r e ° t ce ; o c i . c i ? a ^ ^ r t _ a , ~ ^ 

arcii^ry or a n y c or; : 1 ra t i o n o: su t oor t :r f arns; ~t ca’ 



a ss: 
Dot' 
5 5 C 



■ to aootoe: su^jc:i:r 5 a r 

■ srccic :e cr cae*-. Iris a 

1 : a s u r o o r t i n ->* ir^ - s n 

58 :;:::* i 5 5 ^ 10 . 31 , 0 



b a c r 81 s t a 0. *< ? 1 :. h r 

*• ^ ^ *■ .-■ ' * 



} * .i C i, ' _•■ »- - 



1 ^ ^ 

Ut C-iUi:.. 



0 : e 

abr 



., tiO! 



ire re~ar.<s 5 e " t : c r. car. c^ c,j 
: i u a e : c z r neuters c:: letters. 1 : 



— c ^ 1 . e 



- Tic. r «r c - 



::e r- cters, 



- a ~i 
^ - - i r 



x c card cters tasb = ; w' 

tiers 0 : a 



arts ubusa/ induce recOTPienra 

at ; a c < res trie tiers -r.i outer 
ta;e. . .Attach *:tn Tam armament, c s 



r c tiboe::?:. 
a ^ < me . a ireui eb 
ct d r ter. t inter " a 1 1 0 r . : 0 r 
* arc ■* 1 , area r 1 r c at r - c <Z 



indicate 
: r* a r a r t a r a 



0 r 



n a j and area t r.u? :sr 
a r try :ar* ce retail' 

( I r X n 1 n d ' a S liirl'Ti 



co cot e / • 
caoc 1 < - 

c r ere 7 i . 



5 Jl-:.. ^ c a - 



> r> * 3 1 *> c. 

\t * u — *•- *- 

*-.• o r* i ^ } 

1 * * C 



In ci cate iron *rat sou ret o:‘ mt 
ntem^ercs su^rery, ai 



j . . 



C f i .. t 

cr.c to , 

A V c V " 



r r.:s-r v ■= 



or^dib; 
^ 1 *rC 6 Z o *■'. • 



5 ^ ** 5 3 . 0 - 

~ 3 cot e 



t * as 
Cberver , 

“ ( 1 ^ j. ^ 1 






tne target octette: : r: r. a:: eeru. "DtD = :e.i 



o « £ s ~ t O C ^ 

exa^cle* Acl 



oto rurcer arc cress tre :fu:.t .*ce 



v -c 



jest press trie 



tne target 
? t u r r ae y . 



0 *. r 

c a . 



a r otr.er 



r r 



>0 .roe 



: v . w u *"* u , 



'=t’irn <:e; y 



: *:' ir.e onot: xrio. id can or: is s« : ne -s in- 

tsr^=i xccaticn, enter an J sni ness in 
0 1 r.°r * i a e . e r. i er an ei ~n z ni ?i t nur ce n an. I yiess ine 
return xey . 



SME?. phOTO COC?.rii\AVr’ 



1 r. e n c c r 


cl r a 


ann c 0 r. s 1 s 1 


ori/ 
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